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**F ILE**1D**SORKEYSUB 
SSSSSSSS$ 000000 RRRRRRRR KK KK EEEEEEEEEE YY YY SSSSSSSS UU UU 88888888 
SSSSSSSS 000000 RRRRRRRR KK KK EEEEEEEEEE YY YY SSSSSSSS UU UU 88888888 
SS 00 00 RR RR KK KK EE YY YY SS UU UU BB 8B 
SS 00 00 RR RR KK KK EE YY YY $$ UU UU 8B 8B 
SS 00 00 RR RR KK KK EE YY YY SS UU UU BB BB 
SS 00 00 RR RR KK KK EE AO $$ UU UU BB BB 
SSSSSS 00 00 RRRRRRRR KKKKKK EEEEEEEE YY SSSSSS UU UU BB8BBBBBB 
SSSSSS 00 00 RRRRRRRR KKKKKK EEEEEEEE YY SSSSSS UU UU 88888888 
$$ 00 00 RR RR KK KK EE YY SS UU UU BB BB 
$$ 00 00 RR RR KK KK EE YY SS UU UU BB BB 
$$ 00 00 RR RR KK KK EE YY SS UU UU BB BB eeee 
SS 00 RR RR KK KK EE YY SS UU UU BB BB eee 
SSSSSSSS 000000 RR RR KK KK EEEEEEEEEE YY SSSSSSSS UUUUUUUUUU  _BBBBBBBB cose 
SSSSSSSS 000000 RR RR KK KK EEEEEEEEEE YY SSSSSSSS UUUUUUUUUU = BBBBBBBB eeee 
LL III! SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL II SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLi IIIT] SSSSSSSS 
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MODULE SORSKEY_SUB ( | 
IDENT = 'v04-000' ! File: SORKEYSUB.B32 Edit: PDG3033 


BEGIN 
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'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 


OOOoCoooo 


® 

® 

* 

® 
IED * 

:* OWLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
NCLUSION TH C WARE OR ANY OTHER * 

: VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
. * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORA’ ION. ® 
® 

* 

® 

® 

* 

® 


ie S3GITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ASSESSES SSISI ESTEE TTT T TT TTT TTT TTT eee reece cee cece citi stiri citi i ii iici iii iii? 
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1 
1 
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1 
1 
1 
2 
2 
2 
; 
2 
2 
2 
¢ 2 
$ 44 
3 3 ! 
H ; FACILITY: VAX-11 SORT/MERGE 
3 3 : ABSTRACT: 
3 : : This module contains the routines that build the comparison routine. 
3 ; } ENVIRONMENT: VAX/VMS user mode 
Z poet AUTHOR: P. Gilbert, CREATION DATE: 14-Dec-1981 
4 004 ! MODIFIED BY: 
4 004 ! 
4 Bnee ! 103-912 Original 
1 Bee : T03-016 peg arte heck for presence of VFC area in LENADR routine. 
! -Dec- 

4 0047 ! T03-017 Check for DISPCCOM sat PP (mot CTXCCOM_LRL_INT]) exceeding 
4 0048 ! -REFSIZE. PDG 28-Dec-1982 
4 49 ! 703-018 Added clean-up routines. PDG 6-Jan-1983 
5 50 : T03-019 New interface for collating sequence stuff. PDG 26-Jan-1983 
5 051 ! T03-020 Don't output the stable field for index sorts. Change the 
5 B26 ! severity of SORS$_KEY Loy. Save the stream number for stable 
5 05 ! merges. PDG 27-Jan-1983 

054 ! 103-021 Changes for hostile environment. PDG 3-Feb-1983 

055 : 8 - § Change MOVC5s to use a pad character. PDG 8-Feb-1983 

056 ! T03- Pass the context address to ope Pose rout ings. PDG 11-Feb-1983 
5 0057 : T03-024 Some changes with Linkages. PDG 10-Mar-198 
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: 8 0038 ! 703-025 at oe in Rit CONVERT_FLT. Check validity of KBF_ORDER. 

; ¢ bey 1 703-026 pee] " er asbyte opcodes to conform with STARLET's definition. 
: 6 O0¢¢ EB 03-8? tories” sp es for KANJI. PDG 22-May-1983 

: o7 Bpe7 ! 8 pest ~ ae {5ggt ing. D-floating and hec inal hardware support. 
: 65 0065 1! 703-029 AU Locate. + extra byte in generated code to azote a 11/750 

; @& B08 7! eres m when the next byte is not readable. PDG 9-Au the 
; 67 0067 1! 103-830 et Com. EQUAL equal to 0 if it's not needed. PDG 26-Aug-1983 
3 68 068 1! T03-031 Add COM-ARCHFLAG to store sy15. ARCHEL ” PDG 31-yan-19 4 

3 9 $9? 1! 703-032 Change COM_RHB to COM_RHB_INP and COM 

; 0 070 1! This is to avoid problems with merge “Rhere an incoming 

; 4 0071 record overurites the VFC area for the outgoing record. 

: ie Go7$ : | 703-033 correct er ogneees of entire key disappearing (SORS$_KEY_LEN). 
3 : 9-Aug-1 

ey 0075 1 !-- 
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ee a 076 ] LIBRARY 'SYSSLIBRARY:11B'; 

; 678 77 1 LIBRARY "SRC$:OPCODES’; 

3 6 Ht : REQUIRE ‘"SRC$:COM'; 

: 1 149 1 LITERAL ' Global registers used between routines 
; ¢ 120 1 R_CUR_ PC = 10, ’ 

; 151 1 R-BRANCH = 9; 

3 4 8128 1 LITERAL 

; 1 1 FUN_K_STAB= FALSE; ! True to pass records in a stable order 
3 86 0154 1 LINKAGE 

. > OF i} LINK_OPOPNEQ = 

; «88 128 1 JSB(REGISTER=2,REGISTER=4) : 

: 89 157 1 GLOBAL (CUR PC=R_CUR_PC, BRANCH=R_BRANCH, CTX=COM_REG_CTX) 
; 90 0138 1 NOTUSED(1,5,6,7.8), 

; wh 0159 1 

; 9 0160 1 LINK_BNEQ = 

; 3 tre i ig ag iy PC, BRANCH=R_BRANCH, CTX=COM_REG_CTX) 
; (9S b168 1 NOTUSED(1,2,3,5,6,7,8), i A 1% 

3 96 0164 1 

. >: 0165 1 LINK_SAVE = 

3 98 0166 1 JSB(REGISTER=4) : 

: 99 0167 1 GLOBAL (CUR_PC=R_CUR_PC, BRANCH=R_BRANCH, CTX=COM_REG_CTX) 
: 100 0168 1 NOTUSED(2,3,5,6,7,8), 

; 101 0169 1 

3 138 0170 1 LINK_DISP = 

3 10 0171 1 JSB(REGISTER=2,REGISTER=3) : 

> 104 O17¢ 1 GLOBAL (CUR_PC=R_CUR_PC) 

s 105 0173 1 NOTUSED(1,4,5,6,7,8,9,11), 

: 106 0174 1 

3; 107 0175 «1 LINK_LITE = 

; 108 0176 1 JSB(REGISTER=2,REGISTER=3): 

: 109 0177 1 GLOBAL (CUR_PC=R_CUR_PC) 

> 111 0179 1 

; V6 0180 1 LINK_ROOM = 

: (11 0181 1 JSB(REGISTER=0): 

> 114 018 1 GLOBAL (CUR_PC=R_CUR_PC, 

> 115 0183 1 CTR=COM-REG_CTX) 

s 116 0184 1 NOTUSED(6,7,8,9), 

s 117 0185 1 

; #118 B86 1 LINK_COMPARE = 

3 «119 0187 1 LL: 

: 120 0188 1 GLOBAL (CUR_PC=R_CUR_PC, BRANCH=R_BRANCH, 

: 121 0189 1 CTR=COM_REG_CTX), 

i ¢ Bige 1 

oz 191 #1 LINK_MOVE = 

: 124 3138 1 : 

: 125 193 1 GLOBAL (CUR_PC=R_CUR_PC, 

7 g 194 1 CTR=COM_REG_CTX); 

s 5 195 1 

: 128 196 1 FORWARD ROUTINE 

: 1¢9 197 1 KS_HACK: NOVALUE CAL_CTXREG, 

3 { bs : ey CORPRESS: NOVALUE CAL_CTXREG, 

: 132 200 1 ! CHAR HARDWARE: CAL_CTXREG, ' Test for Char String support 
3 33 0201 1! EDPC_HARDWARE: CAL_CTXREG, ! Test for EDITPC support 
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SORSKE) SUB 16-Sep-1984 90: 43:2 AX-11 Bliss-32 V4.0- 
; } Test for CRC support 

' 

! 


eT-3 3 1! cre CAL_CTXREG, 

3; 1355 1! DCMC_HARDWARE CAL-CTXREG, Test for Decimal support 
°y 4 1 FFLT_HARDWARE CAL_CTXREG, Test for F-floating support 
= - DFLT_HARDWARE CAL_CTXREG, Test for D-floating support 
3 ¥ 3 88 1 GFLT_HARDWARE CAL_CTXREG, Test for G-floating support 
. 3 07 1 HFLT_HARDWARE CAL _CTXREG, Test for H-floating support 
: 140 08 1 DO_REI: NOVALUE, 

3 (141 09 1 EMIT_DISP: NOVALUE LINK_DISP, 

; 136 0210 1 SAVE_REGS: NOVALUE LINK_SAVE, 

; 14 0211 #1 EMIT_BNEQ: NOVALUE LINK_BNEQ, 

3; 61446 0 \§ 1 EMIT_LITE: NOVALUE LINK_LITE, 

: 145 13 1 ROOM? LINK-ROOM, 

; 146 14°=«7 OPNEQ: NOVALUE LINK_OPOPNEQ, 

: 147 3 7 GEN_CONVERT_DEC: LINK_COMPARE, 

3; 148 0216 1 GEN-CONVERT_FLT LINK"COMPARE, 

3 149 0217 1 “MOVE : NOVALUE LINK-MOVE 

; 150 0218 1 GEN- COMPARE : NOVALUE LINKCOMPARE, 

: «151 0219 1 MOVE KEYS: LINK_COMPARE, 

; 136 0 $9 1 EXPAND: NOVALUE, 

: 3 0221 1 SORSSKEY_SUB: CAL_CTXREG, 

; 138 bess : CLEAN_UP? CAL_CTXREG ROVALUE; 

FH 128 bsse : SORSSEND_ROUTINE_(CLEAN_UP) ; 

: 158 0226 1 EXTERNAL ROUTINE 

3; 159 0227 1 SOR ! Issue diagnostic 

; 160 0228 1 ZIF NOT HOSTILE %THEN 

s 161 $94 1 S : AL_CTXREG, ' Use record defn table 
3 1o6 oSze ' SORSSRFA_ACCESS: NOVALUE CAL_ACCESS, ! Access record by RFA 
: 164 0232 1 SORSSALLOCATE: CAL_CTXREG, ' Allocate storage 

3 192 OS 37 ! SORSSDEALLOCATE: CAL_CTXREG NOVALUE; ! Deallocate storage 
3; 167 0235 1 ZIF NOT HOSTILE X%THEN 

; 168 0236 1 EXTERNAL 

; 169 0237 1 LIBSAB_CVTTP_O: ADDRESSING_MODE (GENERAL), 

s 170 0238 #1 LIBSAB_CVTTP_U: ADDRESSING_MODE (GENERAL), 

. or 0239 1 LIBSAB_CVTTP_Z: ADDRESSING_MODE (GENERAL) ; 

aes) Baa 

3 «6174 Bseg 1 ZIF NOT HOSTILE X%THEN 

3; «175 0245 1 EXTERNAL LITERAL 

; 176 0244 1 FUN_K_KANJI: WEAK UNSIGNED(1); 

Pin eee 

5 +4 ¥ 8 ‘3 ' <IF HOSTILE ZTHEN 

s 181 U 0249 1 SYSSGETSYIW = SORSSYSSGETSYIW 2%, 

Py 186 u 0250 1 SYSSUNWIND = SORSSYSSUNWIND 2%; 

Pie mis 

; «6185 25 1 ! This bit in the key description buffer indicates a converted key 

: 189 32 | macro 

; 188 4 2$ 1 KBF_CVT = &FIELDEXPAND(KBF_ORDER,O), 

: 133 2f : ZFIELDEXPAND(KBF_ORDER,1) + 1, 1, 0 2; 
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ed for a packed number of X digits. 


' PLEN_ gives the number of arses vounty 
v es for a key. 


LEN. gives the number of by 
= ((xX)/241) &%, 


ES STRUCTURE (BLOCKC 
KBF_TYPEJ EQL DSCS$K 
LEN (.BCKBF melden 
BCKBF _LENGTA 


! STRUCTURE (KBF _BLOCK) 


! Define the field within COM_ROUTINES that references the start of the 
generated code. 


MACRO 
S_START = EXPAND XFIELDEXPAND(COM_ROUTINES,O) + 1, 0, 32, 0 2; 
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The following tables contain the largest allowed sizes for the various 


datatypes (a value of -1 indicates no upper Limit); a bitvect 
indicating that the length, if specified, should match the ma 


) 
ximum Length; 


and a bit indicating that the datatype can be compared Like a binary number. 


CRO 

DSC_SUPPORTED 2 
DSC$K_DTYPE_ADT, 8, TRUE, TRUE, 
DSCSK"“DTYPE-B, :. TRUE, TRUE, 
DSCSK-DTYPE BU, 1, TRUE, TRUE 
DSCSK-DTYPE_D, 8. TRUE, FALSE, 
DSCSK"DTYPE-F. x TRUE, FALSE, 
DSCSK-DTYPE-G, 2 TRUE, FALSE, 
DSCSK-DTYPE_H, 16, TRUE, FALSE, 
DSCSK-DTYPE-L, 4, TRUE, TRUE, 
DSCSK-DTYPE_LU, 4 TRUE, TRUE 
DSCSK-DTYPE— a. FALSE, FALSE, 
DSCSK“DTYPE-NLO, is FALSE, FALSE, 
DSCSK-“DTYPE_NR z. FALSE, FALSE, 
DSCSK“DTYPE_NRO, 1, FALSE, FALSE, 
DSC$K"DTYPE-NU, 1; FALSE, FALSE, 
DSCSK"DTYPE-NZ. he FALSE, FALSE, 
DSCSK“DTYPE_O, 16, TRUE, TRUE, 
DSCSK~DTYPE~OU, 16, TRUE, TRUE 
DSCSK-DTYPE_P, 31. FALSE, FALSE, 
DSCSK“DTYPE_Q, 8, TRUE, TRUE, 
DSCS$K"DTYPE~QU, 8 TRUE, TRUE 
DSCSK-DTYPE-T, -{, FALSE, FALSE, 
DSCSK_DTYPE_w, $- TRUE, TRUE, 
DSCSK-DTYPE WU, TRUE, TRUE 

ipsa DSCSK-DTYPE—Z, -{, FALSE, FALSE %; 

MAX_SUPPORTED = DSCSK_DTYPE_ADT; ! Value of largest supported data type 

DSC_L_CA.B.C.D] = [A] = B 2, 

DSC“F~ A.B.C.D] = [A] = C %, 

DSC~B~CA.B.C.D Al =D i: 


DSC_LENGTH: VECTORCMAX_SUPPORTED+1 ,BYTE ,SIGNED) 
PSECT(SORSRO 4} a hidoonte {_(DSC_SUPPORTED)), 


iu : BITVECTOR SUPPORTED+ 

PSECT(SORSRO CODE) PRESET(DSC_F_(DSC_SUPPORTED)), 

DSC_BINARY: BITVECTORCMAX SUPPORTED? 
PSECT(SOR$RO_CODE) PRESET(DSC_B_(DSC_SUPPORTED)); 


(4) 


82:1 


Oi lege V4.0-74 
SRC JSORKEYSUB. 


™N uw 
tot a} ”) 
--— i 
‘ac w 
«xO we 
oe) 
>w m~ 
wT .* s 
™N vere 
£ 
~~ vn 
nw ~~ . NS 
ww ~ ve ++ *e 
oe oe + Vuw ee 
ao © _ aa 
Ne - ve 4 ~ 
oo of «< ers 2 aca ~ 
om ~ Ww = b= =< 
or > J- Vv ~ 
~ wun ee wo 
wv + Vere 2 
ooo coa “uu oO 
aon << pe ok 
-—— ek wu o 
‘es < DC PeDe aa - 
aa ~~ ie _ 
oee ++ ca . 4 
nw eae eae — Pp | us 
i) 33>3 vv 
wow ~~ ee a ee 
-—— ~~ we Pe care -~ 
oouww << =) 
2arr ~ a 
bd oo>> wun ' 
w +3@0m a. [4 
aw eeee mer + 
a eee Zoo a 
oot ot ee > es oe 
2a [= = = 5 vor < 
PVU TVET Vue) —_—M— 1 
—— ee > an = 
°o 2222 ~oo ff ~ 
PV STVEIVS Ve) = ess oo w 
a zazrxr oo eo - 
fw) tee cw > 
c PRPC TLIL -~ dev v0 @ 
@ o xzaa vo a 
| aan Zweite & 
oc _nx>sZ = 32a _ 
wD —_—_—~ Zz #257 8 -. 
w a | “= Zev - ww 
2 mazes, = S< 2 ~ 
Le] ~~ 
~ 2220 w wun o u * See 
a We FLT TE [. 4 " ws 
rod > mn fre AAelUCOlUlU 
€ ba ed aah aed el tt ne. a) 
“zz we 8Ptwow c <« 
° 3 ee Kae © YI nun 
co WJuuwe > 9-40O>0O0 2 
Tee OwsZOsi << wav 
wy @ererere Musw tt i -- 'w -—-a2z 
a -— -_- -— e& - 2 >oo 
o _ _ es 2O3u4 
ce = = zzz Za + dees 
7’ Ow w Umm ee wewt www 
os «= w w 
=z vw oa bo 
-_ _ 
a - oe 


NOVO CSCS EPP 
PAM 


COOOOCOCOCOCOCOCOSOOCOCOSCOCOSCCOOOOCOOO 
Z£ezzezt Fee 


Sete Se Se ee ee Or SH Se Se Se ee ee 


sng 


8s 


KALANLSS& 


Oooooooooo°ooo 
AOONMMNMNUIVIVIVIVIV 


—OVONOUES WOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Sep-19 AX-11 Bliss-32 V4.0 
1$-}eoc1984 93: 9:2 SORT32.SRC SORKEYSUB. 3 2;1 


; Define the value of the Largest short Literal 


LITERAL 
SHORT_LIT = 63; 


! None of the code ORE eke by these routines should reference registers 
! COM_REG_SRC1, COM_REG_SRC2 or COM_REG_CTX except by these names. Therefore, 
undéclarte the R_x names for these registers. 
UNDE CLARE 
ZNAME (' 


Be (COM_REG_SRC1)), 
NAME ( "RI; « INUMBER(COM"REG_SRC2)) 
(COMZREG-CTX)); 


! Largest short Literal 


Coes s 


Wwr—o 
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! used, register RO is 
! When any of R2..R5 must be saved, SAVE 
! registers to save. This may generate code, and affects the code generated 
' by EMIT_BNEQ to restore saved registers. 


(Fm cmc memes me mt emcee meme meet meme m sms mem meer ee mmm meer memes es ecm wees memsermemermseemce 


ITERAL 
K_U 
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Saving and restoring registers in the key comparison routines. 


The Linkage to the ~ comparison routine allows only registers RO..R5 to be 
he returned value, and register R1 need not be saved. 
REGS is called with a mask of the 


! when registers are saved (with a PUSHR), the mask of saved registers is 
! updated. EMIT_BNEQ will generate appropriate code to branch to (or around) 


code to restore the saved registers and return (in RO) plus or minus one. 
EMIT_BNEQ identifies the — riate action based on its Gereneter. which is 


used as an index into the BRANCH vector. This parameter is one o 
. Unsigned ascending K_U+1 Unsigned descending 
K_S Signed ascending K_S+1 Siv-»-ed descending 


The following code may be generated. Choices are listed by preference. 


{ 
, © BNEQ CUAIUD.SAiSD} | BEQL 1$/BRW CUAIUD!SA!SD}/1$: > 


' { UA:BLEQU 1$ | UD:BGEQU 1$ | SA:BLEQ 1$ | SD:BGEQ 1$ } 
POPR #*M<mask>/MOVL #1,RO0/RSB 
) 1$: {€ BNEQ M { BEQL 2$/M:POPR #*M<mask>/MNEGL #1,RO/RSB/2$: } 


Thus, from 2 to 16 bytes of code are generated per EMIT_BNEQ. The branches 
to UA, UD, SA, SD. or M are taken only if that label has been defined, is 
withing range, and restores the appropriate registers. POPRs are generated 
only if registers must be restored. 


A zero is returned at the end of the key comparison routine by the following. 
POPR #*M<mask>/CLRL RO/RSB 


For each Label, the following information is stored (offsets are from the 
beginning of generated code). 


The offset to the Label (-1 indicates the label hasn't been generated). 
The mask of registers that are restored at that label. 


Note that the regtsters must be saved in order. That is, if Ri is saved, 
then Rj (with j i) cannot later be saved. This should be no problem, 
since all register saves are from RO..Rk. 


i 9. ! Unsigned ascending (descending is one greater) 
KS = 3 ! Signed ascending (descending is one greater) 


OWN 
sete 5715 VECTORC4 ,BYTE ,UNSIGNED] 


SECT(SORS$RO_CODE) PRESET ( 
K_U) = OPC_BLEQU, [Kk_U+1 


OPC_BGEQU, 
K7S) = OPC7BLEQ,” (Ck7S+1 


OPC~BGEQ): 


1 
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; 5 0419 1 MACRO 

; 8 420 1 SAVED_REGS = BRANCH(O) 2%, 

: 4 1 BR_D_TX) = BRANCH[1+(X)] %, ! Address for a direct branch 

; 8 4 1 BR_M_(X) = BRANCHL5+(X)J %, ! Mask of restored registers 

3 28 r ? ' BR_1_(X) = BRANCHL94+(X)J %; ! Address for an indirect branch 

; 361 425 1 LITERAL 

; 362 0426 1 BR_SIZE = 1+3*4; ! Size in Longwords of branches array 


3 | 
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; re r 7 ! ROUTINE TKS_HACK : 
3; (6 4 : 1 KEY_BUFF : REF KEY_BLOCK : 
; 36 4 1 ): CAL_CTXREG NOVACUE = § 
: 368 431 1 !4+ : 
; ; 4 4 | Functional Description: | ; 
3 371 0434 1! This routine modifies the key description buffer to account for the F 
3 f Re 5 : fact that keys are being stripped. : 
; 74 4 5 1! The number of bytes to strip is computed from the key descriptions, $ 
3 379 rh 4 BE or spec itied by the user as the “total key size’’ parameter, 3 
4 f rhe ! depending. 3 
: R rr} } } Key stripping and key prefixing are known as the infamous TKS hack. : 
; 380 rk 1 ! Formal Parameters: : 
; «4381 0444 1! H 
; 0445 1! KEY _BUFF Address of DSC format key descriptions. : 
3 te Be48 : The descriptions may be modified by this routiine. : 
3; 385 0448 1! Implicit Inputs: ; 
; 386 0449 1! 3 
3 4 Ro3e : CTX Longword pointing to work area (passed in COM_REG_CTX) : 
; 389 bees 1 ! Implicit Outputs: F 
; 390 0453 1! F 
3; S91 0454 1! CTXCCOM_TKSJ Number of bytes to strip before calling user-written $ 
; 2 0455 1! routines, and before returning the record. | : 
: $2 $628 : CTXCCOM_LRLI Advanced by the number of bytes we are stripping. : 
; 395 0458 1 ! Routine Value: ; 
: 396 0459 1! 3 
; 397 0460 1! None (may signal errors). 3 
; 398 0461 1! : 
; 399 4) 1 ! Side Effects: 3 
; 400 0465 1! 3 
: 401 0464 1! None. 3 
: 40 0465 1! 3 
: 40 R666 1 !-- ; 
3; 404 046 § BEGIN : 
: 405 0468 EXTERNAL REGISTER 3 
3 rts] 94 44 CTX = COM_REG_CTX: REF CTX_BLOCK; : 
: 408 a4? IF NOT .CTXCCOM_HACK_STRIPJ 3 
3; 409 tre THEN 3 
: 410 47 BEGIN 3 
3 «6411 474 ! 3 
: $i¢ 475 ' We were requested to not do this hack. 3 
3 (41 ore ! : 
3 (414 47 CTXCCOM_TKS] = 0; : 
3 «6415 2c8 RETURN; F 
3 $16 47 3 ; 
3 41 480 3 
: 418 481 ‘ : % 3 
3; 6419 4 § ! If the user-comparison routine is being used, strip as many bytes as : 
; 420 048 ! were specified by the user (TOT_KEY_SIZE parameter). : 
| 


dD 1 
vou=000" WeSepm1986 WS:idses — ESORTS2=SRESSORKEYSUB 682; 1 Ag 


7 
= 


' 
' If we are ponerat ine our own key comparison routine, 

! and the record interface is being used (on input), 

; then use KEY_BUFF to calculate the number of bytes to strip, 
otherwise, don't strip any keys (set COM_TKS to zero). 

I 


IF jc TXCCOM_COMPARE] NEQ 0 ! His own comparison routine? 
! Don't change COM_TKS 


RRR 
(20000000000 


3 é 

; 4 § § 

> 424 

3 425 8 

; 4 g 9 

; 6 Beay 

: 428 491 

: 429 beag 

: 430 049 ELIF 

s 46351 0494 -CTXCCOM_NUM_FILES] NEQ 0 

3; 4 ¢ bees THEN 

3 ? ? 8438 cats bets = 0 ! File interface, don't strip keys 
H re 0498 rat ts 

>: 436 0499 CTXCCOM_TKS) = 0; 

; 437 0500 INCR I FROM 0 TO .KEY_BUFFCKEY_NUMBERJ-1 DO 

>; 438 0501 4 BEGIN 

; 439 B28 4 LOCAL . 
; re Benz ? KBF: REF KBF_BLOCK; ! Pointer to the key description 
; rei 0505 4 ! Grab a local pointer to the key description buffer 

3; «644 p2n9 4 ! 

> 444 0507 4 KBF = KEY_BUFFCKEY_KBF(.1)]; 

> «64445 0508 4 

; 646 0509 4 ' Store the offset to this key 

: 447 0510 4 ! 

3 as B21) ? KBFCKBF_POSITION] = .CTXCCOM_TKS); 

3 429 0318 ? Note: The old sort didn't allow unconverted decimal keys, we do. 
3 $28 0515 4 CTXCCOM_TKSJ = .CTXCCOM_TKS] + LEN_(KBFCBASE_}); 

; 45 b218 4 

3 6454 51 END; 

3; 6455 0518 END; 

; 456 0519 

3; 457 0520 CTXCCOM_LRLJ = .CTXCCOM_LRL] + .CTXCCOM_TKS); 

3 $38 b254 2 

, 45 0522 1 END; 


-TITLE SORSKEY_SUB 
IDENT \v04-000\ 


-PSECT SORSRO_CODE 
00000000V 00000 _CLEAN_UP: 
- LONG 


2,NOWRT, SHR, PIC, 


<CLEAN_UP=_CLEAN_UP> : 
-PSECT SORSRO_CODE.NOWRT, SHR, PIC,2 
FF 00000 ost LEMeTN 


-—BYTE 1 : 

0 00001 -BYTE 9 3 

08 04 08 04 O02 O01 08 04 02 i. O00¢ a 5 24° S, 2. Ve Os. Oe. ee : 
wv eH wD Ww. Ww FF is “BYTE of 12H. RHR. H : 


1 
SORSK Y _SUB 1h-s ep-1984 9:5 AX-11 Bliss-32 V4.0-74 
your 14-5 3$b- 7 9: 4; 2s SORT32.SRCISORKEYSUB.B 2:1 
# 0001 .BYT 3] 
10 08 10 98 6 8 BYTE if 16, 8 
BB 0028 Bye gta 
08 1&€ OO OF FC Mig DSc FORCE: 4. 15. 0. 30, 8 
0029 ae” A ees es pra 
08 06 00 03 FC tiie DSC_BINARY: ar 
0031 To BE taba has dew 
18 15 #16 1B tied oPpc BRANCHES os a ee 


.EXTRN SORSSERROR SORSSRDT 
“EXTRN SORSS$RFA_ACCES 

«EXTRN SORSSALLOCATE SORSSDEALLOCATE 
“EXTRN LIBS$AB_C CVTTP P_0, LIBSAB_CVTTP_U 


. WEAK UN_K_R 
000C 00000 TKS_HACK: 
-WORD Save R2,R3 
04 SC AB 06 £0 9002 BBS #6, 92(CTX), 1 
78 AB 94 0000 CLRB  —s-: 120 (CTX) 
04 OOO0A RET 
68 D5 0000B 1 TSTL (CTX) 
3F 12 00000 NEG 7$ 
52 78 «AB 4: 0000F MOVAB 120 1X), R2 
59 AB 95 00013 STB = BKC 
04 13 00016 BEQL 28 
$2 94 0001 CLRB = (R2) 
11 OO01A BRB 7$ 
62 34 0001C 2$: CLRB = (2) 
53 04 BC 3¢ 0001 MOVZ2WL @KEY_BUFF, R3 
51 01 CE 0002 MNEGL #1, T 
23 11 0002 BRB 6 
50 04 BC41 7E 00027 38 MOVAQ @KEY_BUFFCIJ, KBF 
50 02 CO 0002c ADDL2 #2 
04 AO 62 9B 0002F MOVZBW (R2), 4(KBF) 
15 60 81 00 3 Pw (KBFS, #21 
0B 12 00036 BNEQ 4$ 
50 06 AO 3¢ 00 8 MOVZWL 6(KBF), RO 
50 08 C6 0003¢ DIVL2 #2, RO 
06 6 O3F INCL RO 
04 11 00041 RB 5 
50 06 A 35 0043 4$: MOVZWL 6(KBF), RO 
2 5 6 0047 5$: DDB2 RO, (R2) 
D9 1 53 F2 OO04A 68: AOBLSS R3. I, 3$ 
0 78 AB 9A OO004E 7S: WOVZBL 126(CTx), RO 
0084 CB 50 a0 009 ADDW2 RO, 732(CTX) 
04 000 ET 


; Routine Size: 88 bytes, Routine Base: SORSRO_CODE + 0038 


PEPPER RR REPRE REE REED 
09 09 09 09 09 09 SJ NINININI NI NINN OO 
NOUS WN CO ODNAUE WN OODND 


CDOOSOOSCOCOCOCOCOCOOCOCOCOSSOOOO COC OOOO OOOOCOOOCOCOOOOCOOOCOCOCOOCOOCOOCOOOCOOCOOOO 

FE eee ee ee ee ee eel sh ah Ab Ab Ab Ah Ab Ah Ah ah ab ah db ah ah dh dh ah ah ah al aa al ah al al al eal ea eal eal al eal eal eal 
SNS SSS SD ADDED DAD DDI BB BB EEE BEAN AIAN opopoporerory 
DONO EUR $C OO NOAWE WN OOO NAME WWI 0 OD NAME WN SO OODNAV EWN ("OO ONOU EW 


Ronononony tt 


ww 


De Se Se Be Be Se Se Se Fe Be Be Se Se Se Fe Se Ge Ge Ge Ge Ge Ge Ge FH Se Ge Ge Ge Ge Ge Ge Ss Se Se Se Ge Se Se ee FH Se SH Se Se SESE Se Se SHES SH Se Se Se Seas 


F 1 

16-Sep-1984 00:29:5 AX-11 Bliss-32 
12-808- 1382 90: 48 fas SORT 2-SRC SOR 
ROUTINE FET _LOMPRESS 


KEY_BUFF: REF KEY BLOCK 
): CAL_CTXREG NOVACUE = 


Functional Description: 


This routine attempts to combine adjacent keys. 
Additionally, it converts keys to a normalized form. 


Formal Parameters: 


KEY_BUFF Address of DSC format key Syage ws tons. 
The descriptions may be modified by this routiine. 


Implicit Inputs: 
CTX Longword pointing to work area (passed in COM_REG_CTX) 
Implicit Outputs: 
None. 
Routine Value: 
None (may signal errors). 
Side Effects: 
None. 
Notes: 
The following datatypes compare bytes in the following order: 


C u0,ul,u2,... 
xB x0 
x x} ug 
xL x3,u2,u1,u0 
xQ x7,u6,...,U1,u0 
x0 x1§,ulé;.-.,u1,u0 
The following pairs of adjacent keys can be combined: 
Keys Conditions Result 
C x.l=1 Ub(x.a,x.l) 
cot x.atx.l=y.a C(x.a,x.l+y.l) 
C uB x.atx.l=y.a,y.l=1 C(x.a,x.l+y.l) 
ub, C x.atx.l=y.a,x.l=1 C(x.a,x.lty.l) 
xb,Ub = x. a=y.aty.| xbly.a,x.lty.) 
BEGIN 
EXTERNAL REGISTER 
0 CTX = COM_REG_CTX: REF CTX_BLOCK; 


<o 


or 


SORSKEY_SUB 18-5 -Sep-1984 :5 AX-11 B 
your ep- 198s 3:fores — Eeorts2e 
; 3) C 0 x( 

; 3 C 1 KEY at rath) = +0 16, 0% ! Number of keys 
; C Q KEY KBF(N) = Ker K_SIZE * (N), 0, 0, 0 %, 

: 1 : Beer KEY “BLOCK = BLOCK 2° +" KBF_K SIZE’ * MAX KEYS, BYTE] % 

; : 5 For each key, attempt to combine it with following keys 

; 25e € O88? INCR I FROM 0 TO .KEY_BUFFCKEY_NUMBER]-1 DO 

H é g C 288 BEGIN 

; C 05 LOCAL 

; 528 C 0590 KBF1: REF KBF_BLOCK, ! Pointer to the key description 
: 2 3 : 23! KBF 2: REF KBF-BLOCK; ! Pointer to the key description 
3 2 1 ; 0598 Grab a local pointer to the key description buffer 

: 5 : C B23? KBF1 = KEY_BUFFCKEY_KBF(.1)]; 

> 534 C 4 

; «S39 C 059 22222 

; 3 C 0598 

3; Sor C 0599 END; 

; 538 0600 % 

s 350 0601 1 END; 


; Routine Size: 


0000 00000 KEY_COMPRESS: 
. WORD 
04 00002 RET 
SORSRO_CODE + 0090 


Save nothing 


3 bytes, Routine Base: 


Liss-32 V4.0-74 1 
SRC $0 axe YSUB.B32;1 (8 


; 
eee 


H 1 
SORSKEY _SUB 16-Sep-1984 00:29:5 AX=11 Bliss-32 V4.0-74 Page 1 
vOe-000" 102 380- 1984 98: 8:23 {sort 2.SRCJSORKEYSUB.B52;1 ss (9 


; 541 06 ¢ 1 ROUTINE COND_HAND ( 3 
; 8 6 1 SIGVEC: REF et ae ee ! Signal vector : 
: 363 60h 1, MCHVEC: REF BLOCKL BYTE Ss i Mechanism vector ; 
: 545 6 1 | Functional Description: 3 
: rk 6 1! 3 
3; 36 O88 ee This routine is a condition handler for the nee routines. : 
: 278 609 1! The x_HARDWARE routines determine whether the x-type instructions : 
3 2 219 ' are implemented in hardware. : 
: $31 aei$ Formal Parameters: 3 
: 23 oz 1 i SIGVEC Signal vector 3 
3 22¢ B61? ! MCHVEC Mechanism vector ; 
: 228 $e1$ 1 i Implicit Inputs: : 
. 2. 0618 1! : 
BB Le : 
; 260 4 1 ! Implicit Outputs: : 
hd Bl Shee 3 
; re) 89 5 ' Routine Value: 

; 566 06 : 1: If SS$_OPCDEC was pigrelies unwind the stack so that the x_HARDWARE 

s 567 0628 1! routine returns FALSE (not implemented in hardware). 

3 208 8 2 ; If any other error was signalled, return SS$_RESIGNAL. 

: 370 0631 i Notes: 

: 572 peas 1 The returned value of the x_HARDWARE routines should not affect the 

s S73 ete 1! correctness of the sort. 

3; 574 0635 1! If TRUE is fecorrectty returned, LIBSEMULATE fakes the instructions. 

3; 575 BG86 1! If FALSE is incorrectly returned, the key will be converted, so that 

3 e78 ot : } binary compares will be used. 

; 6 639 1! The x_HARDWARE routines may be short-circuited by defining the symbol 

; 444 ot : x_FORTE to be the value to return. 

: 581 oe 1 i If the instruction succeeds, we then look at SYIS_ARCHFLAG to determine 

5 286 643 1! whether the instruction emulator is in use (since this would cause us 

; ote : } to not catch the signal). 

; BS 646 i Side Effects: 

: Hy 648 1: None. 

: 3B chan 

; 390 re "BEGIN 

; 591 036 IF .SIGVECCCHFSL_SIG_NAME] EQL SS$_OPCDEC 

3 4 65 THEN 

; #59 654 BEGIN 

; 59% 655 MCHVECCCHFSL_MCH_SAVRO) = FALSE; 

: 595 026 RETURN SUNWIRD()5 

; 596 5 END 

; 597 0658 ELSE 


1 

SORSKEY SUB 1hesep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 17 
y00 2000 eS aes Pa A PUD Pat gt age 9) 
H 98 0659 RETURN SS$_RESIGNAL; 

; 599 0660 ; END; r 


-EXTRN SYSSUNWIND 
0000 00000 COND_HAND: 
WORD 


. 
° 
* 
° 
. 
o 
7 
e 
. 
e 
° 
oe 
7 
o 
. 
. 
° 
a 
. 
e 
7 
° 
a 
. 
. 
e 
+ 
& 
. 
eo 
. 
e 
. 
o 
. 
& 
. 
om 


Save nothing $ 6608 
50 AC DO 00002 MOVL SIGVEC, Fe ; 065 
0000043C = &F 4 Ad 01 00006 CMPL 4(RO), #1084 ; 
11 i b80F BNEQ 1$ : 
50 08 AC D 1 MOVL mHVEC. RO 3; 0655 
0c AO br 0014 CLRL 12(R0) : 
7 C 00017 CLRQ (SP) 3; 0656 
000000006 00 02 FB BRON CALLS #2, SYSSUNWIND 3 
oe 0020 RET 3 0659 
50 0918 8F 3C¢ B88) 1$: MOVZWL #2328, RO 3 
04 00026 RET 3 0660 
; Routine Size: 539 bytes, Routine Base: SORSRO_CODE + 0093 
; 600 0661 1 
; 601 0662 1 LINKAGE 
; 60 0663 1 JSBO = JSB: WOPRESERYE CO, : beh 3,4,5) wOTUsEd LS 7 -8.9.10.11), 
> 60 0664 1 JSB1 = JSBiReGISTeRs 2): BAL ict CTx=COM_REG_CTX) 
; 604 0665 1 EGISTERSC) 6 j “4 4.5) NOTUSEB(6,7,8,9,10); 
: 605 0666 1 LITERA 
; 606 0667 2 ARC MOT USED = NOT( of bits with no goon tng. {te us) 
; 607 0668 § ARCSM_CHAR_EMUL OR ARCSM: ys te KROL OR ARCSM_EDPC_EMUL 
; 608 0669 ARCSM” CRC_EMUL OR ARCSM~ =DFLT. -EMUL OR ARCSM_ FFLT- ~EMUL oR 
3; 609 0670 1 ARCSM_GFLT_EMUL OR ARCSM_HFL TE L); 
3 ei9 R00) : ASSERT. (ARC TNOTUSED NEQ 0) T ccome there are some unused bits 
; 612 06735 1 
; 613 bees 1 ROUTINE ARCHFLAG(P): JSB1 = 
: 614 675 BEGIN 
3 615 0676 EXTERNAL REGISTER 
3 618 boon CTX = COM_REG_CTX: REF CTX_BLOCK; 
; ei8 sth 1 Have we gotten SYI$_ARCHFLAG before? 
3; 620 et IF_ .CTXCCOM_ARCHFLAG) EQL 0 
3 66e1 6 § THEN 
3 ? g O64 BEGIN 
; ° r Be 5 Call SGETSYI, and then indicate that we've gotten SYI$_ARCHFLAG 
; es 6 ASSERT , CBF LELDEXPAND (COR ARCHFLAG,2) GEQ ARCS$S_ARCDEF * ZBPUNIT) 
; 628 6 ITMLST: yecrontsi ate 
3; 629 0 (SY + mee gf nCeee CTXCCOM_ARCHFLAG), 
; 630 91 $GETS SYIWCITALST: TALS 09) ferro rs COMA ARCRFLAG is 142 a. 
; ? res piace COM_ARCHF LAG CTX com. ARCIIFCAG OR ARC ONOTUSEDS 
: 6 694 : 


1 
SORSKEY_SUB 1b-se 1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 18 
v04= 5D 1 ~30P 71382 90:48:28 YeoRT 2.SRCJSORKEYSUB.B32; 1 9 19) 
3 6 ¢ 0696 Return the value of the ARC$V_xxx_EMUL flag 
: 636 $35 ee .BITVECTORCUPLIT (ARC NOTUSED), .B] THEN SORSSERROR(SOR$_SHR_BADLOGIC); 
: 637 0698 RETURN .BITVECTORLCTXLCCOM_ARCHFLAGJ, .PJ; 
: 638 0699 END; 
000A .BLKB 
10DA0004 OO0BC P.AAA: .LONG 282722308 : 
00000000 00000000 00000000 000c6 .LONG 0, 0, ; 
.EXTRN SYSSGETSYIW 
5E 10 C2 00000 ARCHFLAG: 
SUBL2 #16, SP 7 0674 
52 DD 00003 PUSHL Re : 
014c «CB OF 99005 PUSHAB 332(CTX) + 0681 
00 BE D5 00009 STL  a0(SP) : 
4 I2 0000¢ BNEQ 1$ ; 
08 AE DE AF 10 28 OOO00E MOVC3 #16, P.AAA, ITMLST + 0690 
OC AE 6E DO 00014 MOVL (SPS, ITMLST+4 : 
7E 7C 00018 CLRO = = ( SP§ + 0691 
7E D4 OOOIA CLRL = = (SP) : 
14 AE 9F O00IC PUSHAB ITMLST ; 
7E 7C OOO1F CLRQ = = (SP) ; 
7E D4 90021 CLRL = = (SP) : 
000000006 00 07 FB 00023 CALLS #7, SYSS$GETSYIW : 
00 BE FFFFFOOF &F CB 002A BISL2  #-4081, a0(SP) + 0692 
50 9E 01 04 AE EF 000 2 1$: EXTZV P, #1, a(SP)+, RO : 0698 
14 €0 0003 ADDL2 #20, §P : 0699 
05 00038 RSB : 


; Routine Size: 60 bytes, Routine Base: SORSRO_CODE + OOCC 


; 639 0700 1 

; 640 0701 1 MACRO 

3; «6641 oe 1 P_(0O,P,S,E) = P 2%; 

3 ok 703 1 MACRO 

3 64 m 0704 1 X_HARDWARE(A) = 

> 644 M Bop 1 BEGIN 

: 645 i] re 1 ! 

3 O46 M 878 1 ' Return true if hardware support exists 

; 464 m 0708 1 ' Return false otherwise 

; 648 m 0709 1 } 

> 649 ™ 0710 1 EXTERNAL REGISTER 

; 650 m 0711 1 CTX = COM_REG CTX: REF CTX_BLOCK; 

3; 651 M re 1 RIF XDECLAREDTZNAME(A,"_FORCE')Y 

; $26 m07135 1 TH 

3; 69 m 0714 1 RETURN ZNAME(A,' FORCE") 

: 654 m0715 1 ZELS 

3; 655 il ay 1 BEGIN 

; 626 m 0717 1 : * 

; 65 i, oe 1 ! Establish a condition handler so that if we catch an ‘opcode 
3 O28 : 14 : , reserved to Digital’ signal, we will assume no hardware support. 
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04-0007 er8een188e 98:98:28 «| Heber bP hese eteOe 682.1 9° 19) 
; 660 M0721 1 ESTABLISH_(COND_HAND); ; 
Bl a acc tie torre : 
; r e instruction. 3 
; 66 M0724 1 ! j — 3 
: ree . f 5 : 4SB0(UPLIT BYTE(ZREMAINING, OPC_RSB)); : 
: 666 M 07 - 1 i we got here. The instruction is either implemented in hardware ; 
; 667 M0728 1 i or emulated (so that we couldn't catch a signal). ; 
; 668 M0729 1 i If the s system claims it is camtlagh assume no hardware support. ; 
: 693 2 o? 9 ! If it claims no emulation, assume the hardware got us here. ; 
: 671 4 oF ¢ 1 ASSERT_ ((ARC_NOTUSED pne ZNAME C'ARCSM_',A,'_EMUL')) 7“. 0) : 
3; 67 M 07 1 RETURN’ NOT ARCHFLAG( P ( ZNAME('ARCSV~ a —  EMUL') ) ); : 
, Of M0734 1 END 3 
3; 674 M0735 1 “FI 3 
; 67> 07 $ 1 END %; 3 
: 676 07 1 3 
3 «6677 0738 1! CHAR_HARDWARE : CAL_CTXREG = X_HARDWARE('CHAR', OPC_CMPC3, 0, %X'OC', %x'0C"); : 
; 678 0739 1! EDPC- HARDWARE : CAL_CTXREG = X “HARDWARE ('EDPC', o di : 
: 679 0740 1! C ARDWARE :CAL_CTXREG = X ~HARDWARE (*CRC' ’ 
; 680 0741 1! HARDWARE: CAL_CTXREG = X_HARDWARE('DCML', OPC_ -BnPPS, 0, wi OC*, BOC"): ; 
; 681 0742 1 ROUTINE FFLT_HARDWARE : CAL_ CTXREG = X “HARDWARE ('FFLT', OPC~ _CMPF, ‘0, : 
05 00 00 51 00108 P.AAB: .BYTE 81, 0, 0, 5 ; 
003C 00000 FFLT_HARDWARE F 
« Save R2,R3,R4,R5 3; 0742 : 
6D 82 AF 4 00002 MOVAB COND_HAND, (FP) F ; 
F4 1 ete BSBB _ sAAe., ; ; 
52 09 DO BR0e MOVL 5 3 
B83 19 008 BSBB ARCHELAG ; ; 
50 50 d2 00000 MCOML RO, RO 3 3 
04 00010 ET ; ; 
; Routine Size: 17 bytes, Routine Base: SORSRO_CODE + 010C ; 
; 682 0743 1 ROUTINE DFLT_HARDWARE:CAL_CTXREG = X_HARDWARE('DFLT', OPC_CMPD, 0, 0); r 
05 00 00 71 0011D P.AAC: .BYTE 113, 0, 0, 5 
003C 00000 DFLT_HARDWARE : : 
“WORD Save Ree R5, R4,R5 : 0743 3 
6D FF6C CF 9002 MOVAB COND » (FP) ; ; 
HH H BRN BSBB P vt ; : 
52 " p MOVL #8, R2 ; ; 
p oC BSBB ARCHELAG ; : 
50 5 p of MCOML RO, R 3 : 
4 RET : 3 


1 
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; Routine Size: 18 bytes, Routine Base: SORSRO_CODE + 0121 


; 683 0744 1 ROUTINE GFLT_HARDWARE:CAL_CTXREG = X_HARDWARE('GFLT', WORD(OPC_CMPG), 0, 0); 


P.AAD: .WORD aga § 


003C 00000 GFLT_HARDWARE 
-WORD Save R2,R3,R4,R5 3 0744 
6D FESS = CF 4 90002 MOVAB COND_HAND, (FP) : 
F2 1 9009 BSBB. sé AAD : 
52 OA 06 0009 MOVL #10, R2 : 
6 1 6000¢ SBB ss ARCHF LAG : 
50 50 D2 OO00E MCOML RO, RO 3 
04 00011 ET ; 
3; Routine Size: 18 bytes, Routine Base: SORSRO_CODE + 0138 
3 684 0745 1 ROUTINE HFLT_HARDWARE:CAL_CTXREG = X_HARDWARE('HFLT’, WORD(OPC_CMPH), 0, 0); 
71FD QO14A P.AAE: .WORD 29181 : 
05 00 00 0014¢ .BYTE 0, 0, 5 : 
003C 00000 HFLT_HARDWARE : 
-WORD Save R2,R3,R4,R5 3; 0745 
6D FF3E CF 9€ 0000 MOVAB COND_HAND, (FP) : 
F2 10 0000 BSBB ss: PAA ; 
52 0B p0 009 MOVL #11, R2 ; 
FFGE 0 0000¢ BSB ARCHFLAG ; 
50 50 d2 O000F MCOML RO, RO 3 
04 00012 ; 


3; Routine Size: 19 bytes, Routine Base: SORSRO_CODE + 014F 


; 685 0746 1 

: 6 747 1 ASSERT_(DSC$K_DTYPE_F MOD 5 EQL 0) 

+ 687 748 1 ASSERT~(DSCSK-DTYPE-D MOD 5 Eat 1) 

: 688 749 1 ASSERT~(DSCSK-DTYPE-G MOD 5 EQL @) 

: 689 750 1 ASSERT~(DSCS$K~DTYPE-H MOD 5 EQL 3) 

: 690 751 1 MACRO 

> 691 136 1 FDGH_HARDWARE_(DTY) = (.VECTORCUPLIT BYTE( 

; 69 75 1 FFLT_HARDQARE = FFLT_HARDWARE, 18 EM sere - FFLT_HARDWARE 
; 69 754 1 GFLT“HARDWARE = FFELT-HARDWARE, HFLT-HARDWARE - FFLTHARDWARES, 
> 694 755 1 (DTYY MOD 5;,BYTE] +7FFLT_HAROWARE)T) 2%; 


vero SUB 


; Routine Size: 


; Routine Size: 


1 bytes, 


9 bytes, 


M1 
16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 
10-30-1984 13:40:45 SORT32. SRC SORKEYSUB B92; 1 


1 ROUTINE DO_REI: NOVALUE = 
won 


i This Little routine executes an REI g(t ge ny ie is the only 
! architecturally defined way to ensure that code which was written by 
a@ program is actually esl able before the instruction prefetch. 


LINKAGE LINK_REI = INTERRUPT: eprusen ts. 3 rh 5,6,7,8,9,10,11); 
ROUTINE REI("RETPC, RETPSL ): LINK_REI 


02 00000 REI: REI 
Routine Base: SORSRO_CODE + 0162 


LOCAL NEWPSL 
BUILTIN MOVPSL; 
BOVESL ANEOPSL DS 
REI (.NEWPSL) ; 


0000 00000 DO_REI: .WORD Save nothing 
50 dC 00002 MOVPSL NEWPSL 
50 DD 00004 PUSHL NEWPSL 
F7 10 00006 BSBB REI 
04 00008 RET 
Routine Base: SORSRO_CODE + 0163 


roe 


3; 0764 


N 1 
SORSKE’ _SUB 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 22 
v0e~000 12286874382 9959832 EgoRT 2.SRCIJSORKEYSUB.B52;1 ° (11) 
; 711 770 1 LITERAL K_SAVE_REGS = 3; ! Max bytes from this routine 
; ay a 1 ROUTINE SAVE_REGS(S) : LINK_SAVE NOVALUE = 
> 714 6778 EXTERNAL REGISTER 
; 75 774 CUR PC = R_CUR_PC REF BLOCK 
: 16 775 BRANCH = RIBRANCH: REF VECTOR; 
; 7 ak LOCAL 
: at ore M; ! Registers not currently saved 
; feo 0779 ! Don't bother saving registers that don't need to be preserved for the 
: 721 Oey ! Linkage to the comparison routine. Don't bother saving registers that 
; £ ¢ 781 : have already been saved. We must, however, save registers in increasing 
Te, O78¢ ' order (because that's the way PUSHR and POPR work, and the only info we 
: tse Bez ; keep is the mask of registers saved, not the order we saved them). 
; 726 0785 M = .S AND NOT .SAVED_REGS AND NOT ZNOPRESERVE(JSB_COMPARE); 
; ree th) IF .M EQL 0 THEN RETURN; 
3 og? 0788 ! We need to save some more registers. If (for example), we are saving R8, 
; 730 0789 ! we must also save RO through R7 (unless they've have already been saved, 
3 ey 0790 ! or don't need to be saved for this Linkage). 
3 ioe 0791 ! 
3 733 1444 M= .MOR .M*-1; 
: «734 079 M= .MOR .M*=2; 
3 39 0794 M= .MOR .M*-4; 
3; 736 0795 M= .M OR .M*-8; 
; Ate B78 M = .M AND NOT .SAVED_REGS AND NOT ZNOPRESERVE(JSB_COMPARE) ; 
3 o7 8595 § Check that the save mask fits in a short Literal. 
; SR ttt IF .M GTRU SHORT_LIT THEN SORSSERROR(SORS$_SHR_BADLOGIC); 
5 reg Bane ! Generate code to store the registers on the stack, and update the 
> 744 080 ! register save mask. 
; 745 0804 ! 
; 746 0805 EMIT _BYTES(OPC_PUSHR, .M); 
: 747 0806 § SAVEB_REGS = . SAVED_REGS OR .M; 
3 «748 0807 
: «749 0808 1 END; 
54 DD 00000 SAVE_REGS: 
PUSH R4 ; 0771 
54 9? cA 0008 BICL (BRANCH), R4 ; 0785 
54 F BA on8 BICB #63, M : 
54 05 00008 TSTL M ; 0786 
47 13 00 ~ BEQL 2$ : 
50 54 FF He 7 8 C ASHL #-1, M, RO ; 0792 
54 0 ¢ 11 BISL2 RO, M 3 
50 4 FE i 014 ASHL #=0, M, RO : 0793 
4 0 5 19 BISL2 RO, M : 
50 4 FC er 0016 ASHL rd, M. RO ; 079% 
50 54 F8 BF 0 rH ASHL = #8, -M, RO : 0795 
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2 
vie Y SUB $s gen: 1384 09: 9:51 ened Bliss-32 V4.0-7 Page ss 


p. (0st) = BRI .° aru = .CUR PC = .CTXCS_STARTI; 


DST) = .SK 
ASSERT (K_BNEQ GEQ Ooo eas de244) 
EMIT -BYTES(.OPC_ BRANCHESL.0STJ,0); 


0 14- 0:45 2.SRC SORKEYSUB. 5 2;1 
3; 751 LITERAL K_B ! Max bytes from this routine 
: g ‘ ROU UTI INE ERIT EBNEGCBSTD : LINK_BNEQ NOVALUE = 
; 4 ¢ Emit a BNEQ instruction 
; res BEGIN 
; ie EXTERNAL REGISTER 
; 738 CUR_PC = R_CUR_PC: REF B 
; 759 BRANCH = R” BRANCH: REF V 
; 760 CTX = COM_REG_CTX: REF C 
: 761 
: 76 
s : 
3; 764 IF .BR_D_(.D0ST) LSS 00 
s 76§ -BR_ M~(.DST) NEQ » SAVED REGS 
; 766 THEN 
: 767 BEGIN 
: 768 
: ays | No Label is fined yet. Generate code. 
ae ca oe 
s 77 P: REF VECTORC,BYTE); 
. Er 
3 IF .SAVED REGS ee, 0 THEN EMIT BYE? ees POPR, .SAVED_REGS); 
; EMIT_BYTES(OPC_M ar M_R+R_0, OPC_RSB); 
2 TMPC=1] = .CUR Sy TMP; 
: EMIT_BYTES(OPC_ BEQL, 0); 
; TMP = .CUR_PC; 
IF .SAVED REGS NEQ 0 THEN EMIT_BYTES(OPC_POPR, .SAVED_REGS); 
EMIT_BYTES(OPC_MNEGL, 1, M_R+R x ™ OPC_RSB); 
TMPC=1] = .CUR_PC = .TMP; 
END 
ELSE 
BEGIN 


ASSERT_(K_BNEQ GEQ 5) 
! The code exists, we just have to get there. 


PPV ££ BB NAINA NAIA WINN AAN AANA WN AANA AIRIPUIPIPIPINPONPY NI NINN 2 SO 


; 5 

3 2) LOCAL 

: 538 i.” “BR. D_(.DST) + .CTXCS_START] - .CUR_PC - 2; ! Branch displacement 
; 855 BEGIN 

3 Reo IF 10,8, 1> EQL .2 ! Will branch byte suffice? 
3 85 THEN 

; S28 TRUE 

3 85 ELSE 

; 4 509 BEGIN 

: 0 61 LOCAL 

3 04 Ha T: REF VECTORC,BYTE,SIGNED) 

; 805 = .BR_I_(.DST) + cTx€S_STARTI; 

: 06 4 = (T = TCUR_PC = 2; 

; 80 865 IF .2<0,8,1> EQL .2Z ' Can we branch to a branch? 


LOCK, 
ECTOR 
TX_BLOCK; 
See whether we have a definition for the desired label. 
| 
| 
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BEGIN 
Try a Little branch chaining 
TCO] EQL OPC_BNEQ 


54 
04 
24 A944 
04 A944 
07 
14 A944 


2H 


69 
FE43 CF44 
5A 


04 =A 
6 
0D 
A 


04 
00BA aF 


CUR PC - 
EQ); 


3) 
Pc - 


00000 EMIT_BNEQ: 
USH 


o 
oO 
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P~no-o TCT OUT Iolo 9°90" 


198e 93:40:25 ESSaTS2°SReSsonxersue 882; 1 


! Save indirect branch address 


! Save indirect branch address 
! Branch to final destination 


SP 
BRANCH) (DSTI 
BRANCH) CDSTJ, RO 


(BRANCH) CDSTJ, (BRANCH) 


( 
(CTX), CUR_PC, RO 
, a0(§P) 

ARGBRANCH) 
RANCH) OCBRA tee H) COST) 
C “BRANCHESLDST TJ, (CUR_PC)+ 
“ites 


#4, 
6 
( 
$ 
0 
$ 
8 
Q 
0 
BRA 
Pp 
S 
BRANCH) 
$ 


3 
4 
1 
i 
2 
R 
R 
( 
0 
C 
4 
( 
; 


(sp 
PYBRANCH) . R4 
Fibs R4, (CUR_PC)+ 


2 
SORSKEY_SUB 1b-5¢ -1984 00:29:51 AX-11 Bliss-32 V4.0-74 Page 
y00 000 1 ~g00n 138% 00:98 28 YenaT$2 Re SORKEYSUB.B32;1 9° 15) 
A 055001D0 BF p 47 28: MOVL. #89129424, (CUR_PC)+ : 
FF AO A : af SUBB3 TMP, CUR_PC, -1TTMP) : 
A 13 8B MOVW #19. (CUR PC)+ : 
0 5A : MOVL CUR_PC, TAP : 
OA 04 Ar 5 0 BLBC 4 6=_«& (SP), 3 : 
4 9 D ASHL. #8, (BRANCH), R4 : 
A 4 00BA F Al 00 61 ADDW3 #186, R4, (CUR_PC)+ : 
A OSSOO1CE &8F 9 067 3$: MOVL #8912942, (CUR_PC)+ : 
FF AO A : 06 SUBB3 TMP, CUR_PC, -1TTMP) : 
6 0 BRB 7$ : 
0 1¢ =6AB CO 00075 48 ADDL2 28(CTX), RO : 
0 A ¢ 0079 SUBL2 CUR_PC, RO : 
0 ee 7¢ SUBL2 #2, : 
50 50 08 9 EC 0007F CMPV #0, #8, Z, 2 ; 
1 0084 BEQL © 5$ : 
54 24 A944 1¢ AB Ci 00086 ADDL3 28(CTX), 36(BRANCH)CDSTI, T : 
04 A 54 SA C3 008D SUBL CUR PC T, 4(SP) : 
5 04 AE 02 C 009¢ SUBL3 #2, -4(SP), 2 : 
50 50 08 00 €EC 0009 CMPV 6«-s#0, «#8, Z, 2 : 
2D 12 0009C BNEQ 6$ : 
12 64 91 0009E CMPBsé(TT*+), «#18 : 
1A iF O0A1 BNEQ 5$ ; 
04 AE 01 Ad 98 000A3 CVTBL 1(T), 4(SP) : 
04 AE 04 BE44 4 000A8 MOV a4(SP)CT], 4(SP) : 
54 04 AE SAC OOOAE SUBL3 CUR_PC, 4(SP), T : 
54 54 08 09 . 008 CMPV #0,-#8, T, T : 
Q 00088 BNEQ 5$ ; 
50 4 00 O00BA MOVL. 7, 2 F 
00 BE SA 1c 6AB «C3 000BD 58 SUBL3 28(CTX), CUR_PC, a0(SP) : 
BA 12 90 990¢5 MOVB #18, (CU + ; 
8A 50 90 ooce MOVB g (CUR_PT)+ 3 
1111 900¢ BRB $ F 
BA 0313 BF 80 008 6$ MOVW #787, (CUR_PC)+ ; 
00 BE SA 1¢ «AB ¢ 0000 SUBL3 28(CTX), COR PC, a0(SP) ; 
BA 31 90 00006 MOVE #49, (CUR _PCT+ : 
BA 50 BO 00009 MOVW 72, (CUR_PC)+ : 
5E 08 CO 000DC 7$ ADDL2 #8, SP : 
10 BA 000DF POPR #*M<R4> ; 
05 000E1 RSB : 
; Routine Size: 226 bytes, Routine Base: SORSRO_CODE + 01C2 


BR. 
SORSKEY_SUB 16-Sep-1984 00:29:5 AX=11 Bliss-32 V4.0-74 

y04.080 12-808- 1 3be 0: 3:28 eBRTS2 SRE TSORKLY SUB 6 2;1 
: 4) 98 1 LITERAL K_DISP = 5; ! Max bytes from this routine : 
H Bc 699 ! ROUTINE EMIT_DISP(HISP, REG): LINK_DISP NOVALUE = r ; 
: sre 4 i Displacement mode addressing (does not handle PC-relative addressing). : 
3 at9 308 BEGIN ; 
3; #4 904 EXTERNAL REGISTER 3 
3 P83 $06 CUR_PC = R_CUR_PC: REF BLOCK; ; 
: 850 090 .DISP<0,08,1> EQL .DISP : 
; 851 0908 THEN ; 
3 B26 44) BEGIN 3 
3 910 IF .DISP EQL 0 3 
: 854 0911 3 
s 855 O3t§ EMIT_BYTE(M_RD+.REG) ' (reg) PF 
3 528 091 ELSE ; 
s 85 0914 4 BEGIN 3 
; 858 0915 4 EMIT_BYTE(M BD+.REG); ! *“Bxx (reg) ; 
; 859 B39 4 EMIT_BYTE(.BISP); 3 
; 860 091 3 D; ; 
; 861 0918 END F 
; 86 0919 ELI ; 
; 86 0920 -DISP<0,16,1> EQL .DISP g 
: Bes $953 THEN BEGIN 
; 866 09 i EMIT_BYTE(M WD+.REG); ! “Wxxxx (reg) 3 
3; 867 0924 EMIT_WORD(.BISP); 3 
; 868 0925 5 
: 89 0397 am 
; 871 0928 EMIT_BYTE(M_LD+.REG); 1 ALXxXxxxxxx (reg) : 
s 87 3494 EMIT_LONG(.BISP); : 
s 87 0930 2 END; 
3; 874 0931 1 END; : 
52 52 08 00 EC 00000 EMIT_DISP: 3 
CMPV #0, #8, DISP, DISP $ 
16 3 0000 BNEQ 3$ ; 
25 DS 00007 TSTL DISP $ 
\¢ 82 9 BNEQ 1$ 3 
6A 53 60 4 3 rs apes g36- REG, (CUR_PC) : 
8A 53 AO F gt 12 1$ ADDB3 #160, REG, (CUR_PC)+ 3 
6A 2 90 0001 MOVB ODISP R_PC) : 
A B¢ 1A 28 INCL  CUR_P : 
1C RSB 3 
52 52 10 8 ‘ 38 3$ CMPV #0, #16, DISP, DISP 3 
BNEQ 4$ 3 
8A 3 co 2 2 4 ADDBS #192, REG, (CUR_PC)+ : 
A 2 i 9 Moy DISP, (CUR_PC)+ ; 
8A 53 £0 gf 1 8 4$ ADDBS #224, REG, (CUR_PC)+ : 
BA 2 D0 000 MOVL  DISP, (CUR_PC)+ ; 


sonseey sue 1$-sep-1964 00:29:5) ARI BLisg=32 yi.0-742 Page. 28 
05 00035 RSB ; 0931 
; Routine Size: 54 bytes, Routine Base: SORSRO_CODE + 02A4 


$3 
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; Routine Size: 


DOOOOOOOOOOOOOOOOOOOOOO 
DUD Be BS BB BBE WANN 


FUN" OODNOVN EWN OOONOAOUE Wir 
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OA 


32 bytes, 


Routine Base: SORSRO_CODE + O2DA 


00 OPOPNEQ:PUSHR 
0 BBSC 


RAL K_OPOPNEQ = K_DISP+K_DISP+K_BNEQ; 
ING OPOPNEGCOFF , BST): LINK_OPOPNEQ NOVALUE = 
sable it tas UR P REF BLO 
= 
BRANCH = R~BRANCH REF VEC 
CTX = COM_REG_CTX REF CTX 
BUILT 
TESTBITCC; 
IF TESTBITCC(DST<0,1,0>) 
THEN 
BEGIN 
EMIT_DISP(.OFF, COM_REG_SRC1); 
ENIT_DISP( OFF. COM~REG_SRC2); 
ELSE 
BEGIN 
EMIT_DISP(.OFF, COM_REG_SRC2); 
EMIT DISP(.OFF., COM~REG_SRC1); 
EMIT_BNEQ(.DST); 
END; 
18 BB 000 
54 00 €4 000 
53 09 DO 000 
BF 10 000 
53 OA 00 000 
08 11 000 
53 OA 00 00 
R 10 000 
53 9 00 000 
BO 10 000 
FECB 30 000 
18 BA 00 
05 000 


2 
1eSep=19be 49:40:65 
' 


! Check ascending/descending flag 


' xx(Rsrcl) 
! yy(Rsrc2) 


' (Rsrc2) 
yy Rsrel) 


! BNEQ dst 


#*M<R3,R4> 


2 #0, DST, 18 
06 MOVL #9. R 
09 BSBB EWiT_D1SP 
0B MOVL  #10,7R 
BRB 
1$: MOVL #10, R 
BS EMIf_DISP 
MOVL #9, R 
8 2%: BSBB Ss EMIT _DISP 
a BSBW  EMIT~BNEQ 
D POPR #*M<R3,R4> 
F RSB 


yenet Bliss-32 V4.0-74 
SORT32.SRCJSORKEYSUB.B32;1 


Max bytes from this routine 


Bete Se Ge Ge Se Se Se Se Se Se Be Se 
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as ss. s 4 «6.448 28D ee ee 


sonseey sub 1b-sep-1964 99:29:51 yaNet] aisg=32 v4.0-749. 


: 900 955 1 LITERAL K ! Max bytes from thi ti 
: 301 3 g ROUTINE EA TE Te CauL, LIT): LINK LITE NOVALUE = peeks nee ga tegen 
: 203 3 Literal mode addressing 
: 905 96 BEGIN 
: 90 961 EXTERNAL REGISTER 
; 907 3 : CUR_PC = R_CUR_PC: REF BLOCK; 
: 909 964 .LIT LEQU SHORT_LIT 
> 910 965 N - 
: a1 3 g gceMiT-BYTEC-LITD 
: 318 968 BEGI 
: 914 969 EMIT BYTE(M_A | (PC)+ 
> 915 970 CUR_PCLO,0 Onge. auc, 63° = .LIT; 
; 916 971 CURTPC = .CUR_PC + .BWL; 
: 91 097¢ END? 
: 918 0973 (1 END; 
52 DD 00000 EMIT “LITE: | # 
50 52 DO 90002 MOVE R2, RO 
3F 53 D1 0000 CMPL LIT, #63 
03 1A 00008 BGTRU 
BA 53 90 OOO0A MOVB IT, (CUR_PC)+ 
10 11 0000D BRB 
BA 8F BF 90 OOOOF 1$ MOVB W113. _ CUR _PC)+ 
52 0 03 7 00013 ASHL = #3 Re” 
6A 52 00 ; F 0001 INSV. LIT, ob. R2, (CUR_PC) 
A ; cO 0001C ADDL2 BWL. asl UR_PC 
4 BA OOO1F 2$ POPR #*M< 
05 00021 RSB 


; Routine Size: 34 bytes, Routine Base: SORSRO_CODE + O2FA 


Pee 43) 


0956 
0964 
0966 
0969 
$970 


0971 
0973 


sorte Y_SUB 1-56 mH 9 99: 9:51 AX-11 Bliss-32 V4.0-74 Page 31 


14-Sep-1 7:10:45 SORT32.SRCJSORKEYSUB.B32;1 (16) 
; 920 974 1 LITERAL K_CALL4 = 37 ! Max bytes from this routine ‘ 
> 921 975 1 %IF FUN K_STAB XTHEN +30 XFI; : 
; 9 § 44) 1 ROUTINE EMIT_CACLS : 
; 9 977 1 ( : 
> 924 44 1 U_RTN, ! Address of the user routine : 
: 925 979 1 DISP: REF VECTOR ! Address of field disp leommate table ; 
: 3g6 980 1 ): NOVALUE LINK. COMPARE = : 
: 2 8 03 § ! ; Generate a call to a user routine. : 
; 9350 984 1! The arguments passed to the user routine are: ; 
3 «93) + #4 2 Address of sourcel, by reference : 
3; 9 § 9 $ 1! Address of source2, by reference : 
; 9 987 1! Length of sourcel, by reference : 
3; 9 0988 1! Length of source, by reference ° 
; 935 0989 1! Address of the user's context longword ; 
3 it 7 0990 1 !- 3 
gs O57 0991 BEGIN 3 
; 938 099 EXTERNAL REGISTER : 
; 939 099 CTX= COM_REG CTX: REF CTX BLOCK, : 
> 94) 0994 CUR_PC = R_CUR_PC: REF BLOCK; : 
3; 941 995 ; 
; 94 P 0996 ASSERT_(K_CALL4 GEQ 
3 94% P 0997 14R_DISP+ ! Push address of the context longword 
> 944 P 0998 MAXT1+K pispeten gplsh 2+2+2)+ ' Push the Length 
3 945 P 0999 ee 17K_DISP+1? D1SP) ! Push the oddresses 
> 946 U 1000 ZIF FUN_K-STAB % HEN 
3: 947 U 1001 142K _DISP+2+7+12+ ! Swap for stable sorts 
; 948 P 1g06 aF 
; 949 100 2+K_ABSA) ! The CALL itself 
; 950 1004 
3 9 1005 
; 226 1006 IF NOT .CTXCCOM_HACK_2ARGS] 
; 1007 THE 
; «4954 1008 BEGIN 
; 955 1009 ! 
: Bee iy : Push the address of the user's context longword 
; 328 +33 EMIT BYTE (OPC_PUSHAB 
; 323 HF gaat. ~BISPCRF LELDEXPAND (COM. CTXADR,O)*ZUPVAL, COM_REG_CTX); 
3 sg ipl? Push the addresses of the word Lengths 
; 963 git if .DISPCCOM_ORD VAR] GEQ 0 
> 964 1018 THEN 
; 965 1019 4 BEGIN 
; 208 1020 4 EMIT_BYTE (OPC pysna 
: 96 1021 4 EMIT_DISP(.DISP gOn, sok VAR], COM_REG_SRC2); 
; 968 10 § 4 EMIT~BYTE (OPC pypaa 
3 34 1 4 EMIT_DISP(.DISPCCOM Bio. VAR], COM_REG_SRC1); 
3; 970 1024 4 END 
3; «971 1025 3 ELSE 
; 3f8 1 § 4 BEGIN 
s 97 1 4 EMIT_BYTES(OPC PYSHAN, M_AI+R PC); 
3 97% 1028 4 EMITWORD(.CTXECOM LRLJ-.CTXCCOM_TkS)); 
; 975 + 9 4 EMI T~BYTES (OPC. PUSAL M_RD+R_SP)3 
; 976 1030 3 END; 


K 2 
sorer Y SUB 12-808- 1 3be 90:43:21 yen Bliss-32 V4.0-74 Page 32 


SORT32.SRCJSORKEYSUB.B32;1 (16) 
; gr? ! 1 END; 
; 378 ! Now push the addresses of the records 
: 981 L 1035 Z1F COM_REG_SRC1+1 EQL COM_REG_SRC2 
; 98¢ 10 § XTHEN - Ais 
; 385 19 If _ ,D1SPLCOM_ORD_DATAI EQL 0 AND .CTXCCOM_TKS] EQL 0 
: 985 P 10 § EMIT_BYTES(OPC_MOVQ, M_R+COM_REG_SRC1, ! MOVa Rsrcl 
: 98 1040 A_AD+R_SP) i -(SP) 
. oe ene 
: 388 1908 BEGIN 
: 990 1044 EMIT_BYTE(OPC PUSHAB) ; ' PUSHAB 
> 991 1045 EMIT-DISP(.DISPCCOM_ORD_DATAJ+.CTXCCOM_TKSJ, n(Rsrc2) 
; 93¢ 1046 COM_REG SRC2); 
: 99 104 EMIT_BYTE(OPC_POSHAB) ; ! PUSHAB 
: 994 1048 EMIT DISP(.DISPLCOM ORD_DATA]+.CTXCCOM_TKS), i n(Rsrc1) 
: 995 104 COM_REG_SRCT); 
: 399 1981 wats 
: 998 1936 ! If stable sorts were requested, be sure that we pass the arguments in 
3 1006 192? a stable order! 
> 1001 uU 1055 ZIF FUN_K_STAB XTHEN 
: 100 U 1056 IF .DISPCCOM_ORD_STAB] GEQ 0 
: 100 U 105 THEN 
He BASS eit 
: 1006 U 1060 TMP: REF VECTORC.BYTE); 
> 1007 U 1061 EMIT_BYTE(OPC_CMPL); 
: 1008 U 1068 ENIT-DISB( .DISPLCOM_ORD_STAB , COM_REG_SRC1); 
: 1009 U 106 EMIT~DISP(.DISPCCOM-ORD~STAB], COM~REG~SRC2): 
: 1010 U 1064 EMIT~BYTES(OPC_BLEQ, 0); 
: 1011 U 1065 TMP = .CUR PC; 
3 101g U 106 EMIT_BYTESTOPC_MOVQ, M_AI+R_SP, M_R+R_0, 
> 101 U 106 OPC_PUSHL, ~M_R+R_0 
: 1014 U1 68 OPC"PUSHL, M~R+R71); 
: 1015 u 69 IF NOT <CTXCCOM_RACK~2ARGS] AND .DISPCCOM_ORD_VAR] GEQ 0 
: 101? U 1071 EMIT_BYTES(OPC_MOVQ, M_BD+R_SP, 8, M_R+R_0, 
; 1018 U 1078 OPC_MOVL, A_R+R.1, M_BDTR_SP, 8 
: 101 U 107 OPC“MOVL, MTR+R-0, M~BD+R7SP, 12); 
: 1020 U 107% TMPC-1) = .CUR_PC -~. TMP; 
> 1021 U 1075 END; 
: 10 : 107% tFI 
Wee WBE 
; 19 5 % ! Now emit the CALL 
: 10 ; 1 iF NOT .CTXCCOM_HACK_2ARGS) 
: 19 9 § EMIT_BYTES(OPC_CALLS, 5) ! CALLS #5 
: 19 1 1085 EMIT_BYTES(OPC_CALLS, 2); ' CALLS #2 
: 1 ; 1 6 EMIT_ABSA(.U_RTN); i rtn 
> 103 108 
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SORSRO_CODE + 031C 


155 bytes, Routine Base: 


3; Routine Size: 


? 

SORSKEY_SUB 16-Sep-1984 00:29:5 AX-11 Bliss=-32 V4.0-74 p 4 SOF 
v04-000 1 =$007 1382 99:48:28 YgORT 2.SRCISORKEYSUB.B 2;1 age 43 vOé 

8 $ ROUTINE ROOM(SPACE): LINK_ROOM = 

8 8 ! Verify amount of space remaining in string, extending string if needed. 

040 

041 

O48 

04 

044 

se 

hd LOCAL 

048 DELTA: VECTOR(2), 

Bop OLDSTART; 

G2 } Determine how much memory we need ' 

038 DELTACO] = .CUR_PC - .XCODEC1] + .SPACE; ; 

055 ! See whether we have enough space. 

B28 Return if there's already more than enough. 

058 IF .XCODECO] GEQ .DELTACOI 

059 THEN 

4 RETURN TRUE; 

O86 Round memory request up to a multiple of 128 (i.e., get more than needed) 

064 DELTACO] = ROUND_(.DELTACO), 128); 


oo8 ; Save the old starting address 

bes OLDSTART = .XCODEC1); 

4 Allocate the memory 

O78 DELTAC1] = SORSSALLOCATE( .DELTALO]J); 

ore Copy the old code into the new buffer 

058 CHSMOVE(.XCODECOJ], .XCODEC1], .DELTALC1)); 

O78 Deallocate the old code 

080 SORSSDEALLOCATE(.XCODECOJ, XCODEL1)); 

oes Copy the new length/address into COM_ROUTINES 


KCODELO) = -DELTALO]: 
XCODEL1J = .DELTAL1); 
Update the current PC 


CUR_PC = .CUR_PC - .OLDSTART + .XCODEC1); 
RETURN FALSE; 
END; 


SoOooooo 
LSSBLEAE 


ee ee ee ee ee ee ee ee ee ee ee ee es 
ee me a a ee a a a ad dd 
ee ee ee a ee ee ee ee a em ee ee ee a a a ed dd dd dd I I SOOO OOOOOOOO 


PEPE PWIA RIPINPINININPININIDD 4 9 9  S 2QOOCOCOOOOCOCOOOOOVOOOOO0O®W 
MEU @OOONAUE WN 9 OD NAMES WIN = OOO NAME WIN (OOO NAOUE WN "OC OONAOUS WN —"O/0 


1 
1 
1 
1 
BEGIN 
EXTERNAL REGISTER 
CUR_PC = R_CUR PC: REF BLOCK, 
one = COM_REG_CTX: REF CTX_BLOCK; 
XCODE = CTXCCOM_ROUTINES): VECTORC2]; 


Be Be Se Se Ge Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Fe Ge Fe Ge Se Ge Fe Ge Fe Ge Ge Ge FH Ge Ge Ge Se Se Sse Se Se Fe Se Se Sse Se SeSe Sse Se Sse Ge Se SeVsastessas 


So 
oO 
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N 2 
SORSKEY _SUB 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 p 
04-000 Saas a Pe Pt ae age 43 


. | 

S| 

s 1 

; 

C BB 00000 ROOM: PUSHR #*M<R2,R3,R4,R5> ; 31 

SE ti cs 6 SUBL2 #12, SP : 31 

18 AB SF PUSHAB 24(CTX) : 71 

52 6E 04 3 0 ADDL3 #4, (SP), R2 : 31 
51 2A $8 ¢ SUBL3 (R2), CUR_PC, R1 : 31 
08 AE 1 C1 0001 ADDL3 SPACE, R17 DELTA : 31 
08 AE 00 BE D4 0 1 CMPL ag(SPS, DELTA : 31 

9 OOO1A BLSS 1 : 31 

50 01 0 0001C MOVL #1, RO : 3 1 

60 11 OOO1F BRB 2$ : 7 1 

50 08 AE 0000007F BF C1 1 1$ ADDL #127, DELTA, RO : 3 1 
08 AE 50 0000007F ar CB OO02A BICL3 #127, RO, DELTA : 31 
50 6E 4 C1 000 ; ADDL3 #4, (SP : 51 
04 AE 60 DO 000 MOVL (RO), OLDSTART : 31 

08 AE DD 900 B PUSHL DELTA : : 1 

000000006 00 o1 FB 0035 CALLS #1, SORSSALLOCATE : 31 

OC AE 0 D 9904 OVL RO, DELTA+4 : 31 

7E 6E 04 C1 00049 ADDL3 #4, (SP), -(SP) ; : 1 
9E DD 0004D PUSHL a(SP)+ : 31 

OC BE 9E 04 BE 28 0004F MOVC3 a@4(SP), a(SP)+, aDELTA+4 : 31 
50 6E 04 (C1 00035 ADDL3 #4, (SP), RO : 31 
50 DD 00059 PUSHL RO : :1 

04 BE DD 00058 PUSHL @4(SP) : : 1 

000000006 00 0 FB 0005E CALLS #2, SORSSDEALLOCATE : 71 

00 BE 08 AE 00 0006 MOVL. DELTA, a0(SP) j : 1 

50 6£ 04 C1 0006A ADDL3 #4, (§P), : 31 
60 Oc AE 09 0006 MOVL.  DELTA+4, (RO) : 31 

50 SA 04 AE C3 0007 SUBL3 OLDSTART, CUR_PC, RO 3 31 
51 6E 04 ¢1 0007 ADDL3 #4, (SP). R ; 31 
SA 50 61 C1 0007B ADDL3 (R1), RO. CUR_PC : 31 
50 D4 0007 CLRL. RO : 31 

SE 10 CO 00081 2$ ADDL2 #16, SP : 31 

3C BA 00084 POPR #*M<R2,R3,R4,R5> : 7 1 

05 00086 RSB ; 3 

3; Routine Size: 135 bytes, Routine Base: SORSRO_CODE + 0387 : 
3 | 

s |} 

, | 

¢ | 

| 

3 | 

| 

| 

3 | 


3 
SORSKEY_SUB 1b-sep-1984 00:29:5 AX-11 Bliss-32 v4.0-74 . 6 
500.080 12-88-1382 99:93:2 SORT32. SRCISORKEYSUS .B32: 1 age 436 
' 


094 LITERAL K_MOVE = 66; ! Max bytes from this routine 
0 ROUTINE GEN ROVE 
LEN ' Bytes to move 
SRCOFF, i Source offset 
SRCREG, ! Source register 
DSTOFF, ! Destination offset 
DSTREG ! Destination register 
ae ): NOVALUE LINK_MOVE = 
+ 


| Functional Description: 
This routine generates code to do a simple move. 
Formal Parameters: 


(see above) 
CTX 


i 
i 
i 
i 
Longword pointing to work area (passed in COM_REG_CTX) 
Implicit Inputs: 

None. 

; Implicit Outputs: 

None. 

Routine Value: 

| None. 

Side Effects: 

None. 

= 


NAL_REGISTER 
UR_PC = R_CUR PC: REF BLOCK, 
TX"= COM_REG_CTX: REF CTX_BLOCK; 


ee EQL COM_REG_SRC1 AND .LEN+.SRCOFF GTR .CTXCCOM_SRLJ 
BEGIN 
SSERT_(K_MOVE GEQ 1+#K_LITE+8+K_DISP+K_LITE+K_LITE+K_DISP) 
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A 

' 

! If the source is coming from the input record, and the field extends 
: past the shortest record length, we must emit a MOVC5 instruction. 

' It is a Little tacky to assume that we are in the input conversion 

' routine, based on SRCREG being COM_REG_SRC1, but this test suffices; 
! Care should be taken in the rest of this module if this is not so. 
Code depending on this aspect of GEN_MOVE is coded as GEN_MOVE_VAR. 
I 
T 
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SRCOFF NEQ 0 


BEGIN 
EMIT_BYTE(OPC_SUBW3) ; ! SUBW3 
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USoRt 


1 BIND ROUTINE GEN_MOVE_VAR = GEN_MOVE: NOVALUE LINK_MOVE; 


nw 
w 
N 
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| me. 
vOu=000" eaSep-t9be 18:10:05 ESoRTSZesme SsORKEYSUB. 


1 0-74 $0 
0 14- SORT32.SRCISORKE 305 a82:1 Vv 
133 ROUTINE GEN_CONVERT DEC 
139 PKBF : REF KBF_BLOCK, ' Key description 
198 DISP, ! Displacement from SRC2 
1 STACK: REF VECTOR(1) ! Amount of stack needed 
): LINK_COMPARE = 


le¢ 
} Functional Description: 


This routine generates code to convert a single decimal key. 
! Formal Parameters: 


PKBF Address of the hey description. 
This is modified to reflect the new key description. 
DISP Displacement from SRC2 of where to write the key. 


STACK Address of the amount of temporary stack allocation 
CTX Longword pointing to work area (passed in COM_REG_CTX) 


Implicit Inputs: 
None. 
Implicit Outputs: 
None. 

Routine Value: 


2 Length in bytes of the converted key. 
2 ! Side Effects: 

; None. 

$0 Notes: 


It is worthwhile to convert packed numbers to a more convienient form, 
because of the performance of the CMPP instructions, particularly on 
VAX architectures that don't implement these instructions in microcode. 
This is not yet implemented. 
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Note the following classification of how the sign nibble compares on 
VAX-11/780s: 
Negative: 1,3,5.9.8.D 
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4 91 Positive: 0,2,4,6,7,8,A.,C.E.F 

r 35 ALL forms of zero compare equal. 

4 94 BEGIN 

44 95 EXTERNAL REGISTER 

45 9 CTX= COM_REG CTX: REF CTX_BLOCK, 

4 9 CUR_PC= R_COR_PC: REF BLOCK; 

4 38 LITERAL 5 

4 K_MAXDEC = 31; ! Maximum Length of decimal data 
4 0 LOCAL 

50 8 POF F ! Offset to packed number on stack 


CVTLEN, ! Length in bytes of converted data 


3 
SORSKEY_SUB 1S-se -1984 00:29:5 AX-11 Bliss-32 V4.0-74 P 41 
voe 7000 aes PAR oe Pee Pt Pt tae 29° 49) 
1 LEN, ' Length used in CVTSP and CVTTP instructions 
; REG_SRC, : Source register ? 


KBF? REF KBF_BLOCK; ! Key description 

ZIF NOT HOSTILE XTHEN 

KBF = PKBFCBASE_J; 

LEN = .KBFCKBF _CENGTH); 

IF ONEOF_(.KBFCKBF_TYPEJ, BMSK_(DSC$K_DTYPE_NL, DSCSK_DTYPE_NR)) 

LEN = .LEN = 1; ! DSC Length includes sign, the hardware doesn't 
IF Len EQL 1 AND .KBFCKBF_TYPE] EQL DSCS$K_DTYPE_NLO 


KBFCKBF_TYPE] = DSC$K_DTYPE_NRO; 


OOoooooo 
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! If all we will be looking at is a sign, don't do this test, since 
} +0 and -0 sort equally. 


if .LEN EQL 0 AND 
ONEOF _(.KBFCKBF_TYPE], BMSK_(DSC$K_DTYPE_NL, DSC$K_DTYPE_NR)) 
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BEGIN 

Ear [KBE TYPE} = DSCSK_DTYPE_7Z; 
KBFCKBF-LENGTH) = 0; 

RETURN 0; 


Determine how much stack space is required for this routine 


rn 


STAK = 0; 
IF ONEOF_(.KBFLKBF_TYPEI, BMSK_(DSC$K_DTYPE_NLO, DSC$K_DTYPE_NR)) 


STAK = ROUND_(.LEN+#1); 
IF .LEN LEQ 9 
THEN 


BEGIN 
POFF = .STAK; 
STAK = .STAK + PLEN_(.LEN); 


END 
STACKLO) = MAX(.STACKCOJ, .STAK); 


! Normally, the source comes from the input record (COM_REG_SRC2). 
' However, for indexed sorts, the key eay have already Been moved to the 
} internal format record. If so, use CO -REG_SRC2 as the input register. 


REG_SRC = COM _REG_SRC1; 
IF TKBFCKBF_COT) THEN REG_SRC = COM_REG_SRC2; 


! Convert the number to packed. 
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SORSKEY_SUB 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-7%4 Pp SOF 

yoe 2000 eats PAR Pe PED Pt tg pete age 435 vod 

: 1309 1360 

: 1310 1361 IF .KBFCKBF_TYPE] EQL DSCSK_DTYPE_NLO 

> 1311 1 6¢ THEN - 

: 1 \¢ 136 BEGIN 

: 131 1364 ROOM(K MOVE+1+K_DISP+3+K_ABSA+13); 

> 1314 1365 GEN_MOVE (MAX(.LEN=1,0), ! MOVE #len=1 

: 1319 1366 sKBFCKBE POSITIONI#+1, .REG_SRC, ! Visre) 

: 1 i$ 1 68 EMIT_BYTE(OPC_MOVZBL); i MOVZBL 

: 1 18 1 EMIT-DISP( .KBFCKBF_POSITION], .REG_SRC); i (sre) 

: 131 P 1370 EMIT~BYTES(M_R+R_O i RO 

:1 30 1371 OPC_MOVB; M T+R_0); i MOVB 

: 1321 1 te EMIT_ABSA(LIBS$AB_CVTTP_O); i CVTTP_OCROJ 

: 1 : P 137 EMIT~BYTES(M_AD+R_ SP i =(SP) 

: 1 P 1374 OPC_MOVB; 1, M_Ab+R_SP i MOVB #1, =(SP) 

i 1324 P1379 OPCECVTPS, 2, R_RD+R_Sé, i CVIPS Ae, (SP) 

; 3 i OPC_ADDL2> 2. M_R+R_SP); i ADDL2 #2. SP 

: 1328 137 

: ae : 59 weeny eT nee THF ED EQL DSCSK_DTYPE_NR 

> 1331 138 BEGIN 

s 3 ; 1 HE ROOM(14+K_DISP+1+K_MOVE); 

: 133 1384 EMIT_BYTE(OPC_MOVB); ! MOVB nn+Len(Rsrct) 

: 1334 1385 EMIT-DISP(.KBFCKBF_POSITION]+.LEN, .REG_SRC); 

: 1335 1386 EMIT~BYTE(M RD+R_ SP); ! (SP) 

; 1336 1387 GEN_MOVE(.LEN ! MOVE #len 

; 1337 1388 ;KBECKBE POSITION], .REG_SRC, nniRsret) 

138 1890 owl ted : 

> 1341 133 ROOM(1+K_LITE+MAX(1,K_DISP)+K_ABSA*K_LITE); 

: 1348 1 38 “ ’ " . 

: ' ? 133e Emit the opcode 

: 1308 P 1396 iF ONEOF_(.KBFCKBF_TYPE], BMSK_( 

; 1346 139 DSCSR_DTYPE_NU; DSCSK_DTYPE_NZ, DSC$K_DTYPE_NRO)) 

> 134 1398 THEN 

; 1348 1399 EL seen T-BYTECOPC_CVTTP) 

: 1350 1401 EMIT_BYTE(OPC_CVTSP); 

; 1382 1408 ! Emit the source length 

> 135 1404 i 

: 1354 1405 EMIT_LITE(K_WORD, .LEN); 

> 1355 1406 

i 1356 140 | 

: 1 2 1208 ; Emit the source address 

: 1359 P 1410 iF ONEOF_(.KBFCKBF_TYPE], BMSK_( 

: 136 141 ppSCSR_OTYPE_NLD, DSC$k_DTYPE_NR)) | 

; 136¢ 1418 EMIT_BYTES(M_RD+R_SP) 

:1 1415 EMIT_DISP(.KBFCKBF_POSITION], .REG_SRC); | 

3; 1365 1416 
| 
} 
| 


3 
SORSKEY_SUB bese -1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 43 
v04- 12-8 08- 1 3be 90: 98:2 SORT32.SRCJSORKEYSUB.B32;1 9° 19) 
1 66 1417 | 
: } oF 1249 Emit a reference to the appropriate translation table, if needed | 
:4 69 14 if .KBFCKBF_TYPE] EQL DSC$K_DTYPE_NU 
: 1370 1401 THEN 
: 1371 14 5 EMIT_ABSA(LIB$AB_CVTTP y) 
: 4 i 14 ELIF .KBFCKBF_TYPE) EQL DSCSK_DTYPE_NZ 
: 137 1404 THEN 
: 1374 1425 EMIT_ABSA(LIBS$AB_CVTTP z) 
; : ie 16 § a -KBFCKBF_TYPE] EQL DSCSK_DTYPE_NRO 
: 1 6 14 8 EMIT_ABSA(LIBSAB_CVTTP_0); 
St 
: 80 14 1 ! The destination Length 
:4 Be 14 4 EMIT_LITE(K_WORD, .LEN); 
: 13b2 1238 
: 1302 1338 Determine whether packed is the best we can do 
; 1387 1438 ROOM(K_DISP+14K_LITE+14+1+2+K_DISP+1+K_LITE+i); 
: 1388 1439 IF .LEN GTR 9 
3; 1389 1440 THEN ! Value won't fit in a longword 
: 1390 1441 BEGIN 
: 1382 1448 ; We've converted the number to packed 
: 1394 1445 KBFCKBF_TYPE] = DSCSK_DTYPE_P; 
; 1395 12c8 evi bee = PLEN_(.LEN); ' Value to return 
: 1396 1447 Ker KBF_LENGTA) = .LEN; 
: 1395 1449 ELSE ! Value will fit im a Longword 
: 1200 1484 rei 
: 1401 1458 We will convert to some form of signed binary 
; 1208 1454 KBFCKBF_TYPE] = DSCSK_DTYPE_B; 
> 1404 1455 EMIT_DISP(.POFF, R_SPY; ' xx (SP) 
> 1405 1496 EMIT~BYTE(OPC_CVTPL); i CVTPL 
: 1406 145 EMITLITE(K_WORD, .LEN); i Len 
+ 140 1458 EMIT~BYTE(M_RD+R_3); i (R3) packed number 
+ 1408 1459 IF .CEN GTR 
3 13% 1460 THEN ' Value won't fit in a word 
> 141 1461 4 BEGIN 
i ge aes 
: 1418 1464 ; ELSE cin ! Value will fit in a word 
3 1415 1466 4 EMIT_BYTE(M_R+R_0); 
: 1416 1467 4 IF .CEN GTR 2 
; ye 1eo8 4 ag ! Value won't fit in a byte 
: 1219 149 EMIT BYTES(OPC_MOVW,M_R+R_0); 
1 nn Nal 
t 1422 1298 4 ELSE ' Value will fit in a byte 


viet 1b-se 3ep- 18s $8: fose Boat $2 SRE isORKEYSoB 68231 Page 419) 


BYTES (OPC_MOVB,M_R+R_0); 
N=] 


<y 
2° 


KBr KB * LENGTHY = .CVTLEN; 


EMIT_DISP(.DISP, COM_REG_SRC2); 


KBFLKBF _POS ie = .DISP; 
KBF CKBF-CVT TRUE; 


ZELSE 
SORSSERROR (SOR$_SHR_BADLOGIC); 
CVTLEN = 0; 


cccce 
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Sle le ek Dake ad ad Dek Dek Dak Dedede dee al at ed 
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<FI 
RETURN .CVTLEN; 
END; 
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GEN_MOVE_VAR= GEN_MOVE 


O3FC 00000 GEN_CONVERT_DEC: 
WORD R5.R4 RS .AG.R7 RBA 
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Save R2 3 
59 FD9S5) =o CF 9 9000 MOVAB EMIT_DISP ; 
54 04 AC 0000 MOVL § PKBF* KBF : 1309 
56 AS 3C 00008 MOVZ2WL 6(KBF), LEN + 1310 
50 0000A000 BF 64 ft O000F ASH (KBF), #40960, RO > 1311 
56 07 00019 DECL LEN + 1313 
01 56 D1 0001B 1$: CMPL LEN, #1 : 1315 
08 12 OOO1E BNEQ $ ; 
11 64 8] 00 CMPW 3=s«(KBF), #17 ; 
03 00 BNEQ 2 ; 
64 13 B80 000 MOVW #19, (KBF) + 1317 
56 D 900 8 28: TSTL LEN + 1323 
12 12 O002A BNE $ ; 
50 0000A000 BF 64 f 99 ¢ ASHL (KBF), #40960, RO + 1324 
64 B4 00 CLRW SS (K : 1327 
06 Ad B 0 CLRW g(KBF) : 1328 
01 5 1 00 BRW tT > 1329 
D4 3$: CLRL ~~ POFF > 1338 
0 b4 004 CLRL = STAK : 1339 
51 00006000 —8F if v8 he ASHL (KBF), #24576, RI ; 1340 
1 p 4C TSTL = RY ; 
ee 7 
53 04 Ag BF 6 ; MOV 4(R6) > 1342 
50 03 CB BICL3 #3, R3, a : 
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! Mantissa bits in first word 
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! Normally, the source comes from the input record (COM_REG_SRC2). 

' However, for indexed sorts, the key oar have already Been moved to the 
internal format record. If so, use COM_REG_SRC2 as the input register. 
KBF = PKBFCBASE_J; 

REG_SRC = COM Rte SRC1; 

IF TKBFCKBF_COT) THEN REG_SRC = COM_REG_SRC2; 

We convert the floating point numbers as follows: 

The first word contains the exponent, and (except for H) a Ls 9 mantissa 


4 
: 1 1553 
3 1 1554 
3% 1555 
; 7 1556 
; 150 1557 
3; 1508 1558 
: 1509 1559 
; 1319 1560 
1812 1363 
3 1848 1368 
3 1218 1564 
; 1515 1565 
: 1516 1298 ‘ 
; 1517 156 : 
; 1518 1568 ! 
3; 1519 1569 i bits. The low word is ordered as follows (smaller to larger): 
: 1350 13/9 § FFFO..8010,800x (reserved) ,000x(zero) ,0010..7FFF 
: 1358 1376 2 ! If the sign of the number is negative, negate all the bits (except the 
; 152 1573 2 ! sign bit). 
3: 1524 1574 2 ! If the sign is positive, check for zero. If not zero, clear the result, 
3 12s? 132? 5 otherwise, copy the number. 
3 1397 137% 2 ROOM(1#K_DISP+2+K_DISP+6+1+#K_LITE+3+8*4+8+6); 
3 1399 132? 5 } Get a pointer to the appropriate entry in the OWN_FDGH table. 
; 133) 138) ; FDGH = OWN_FDGHC.KBFCKBF_TYPE] MOD 5, BASE_); 
; 1838 1383 2 ! Get the address of the source 
3 1534 1584 ' Get the address just past the destination 
3 139) 133? Fetch the (sign-extended) sign of the source 
3; 1537 1587 EMIT_BYTES(OPC_MOVAB); ! AB 
; 1538 1588 2 EMIT~DISP(.KBFCKBF_POSITION), -REG_SRC); : (src1) 
3 1539 P 1589 2 EMIT _BYTES(M_R+R_1, : R1 
3; 1540 1590 OPC_MOVAB) ; ' MOVAB 
3 1541 1591 EMIT_DISP(.DISP+.FDGHCX_LENJ, COM_REG_SRC2); : 4/8/8/16(src2) 
3 1366 Pp 1336 EMIT_BYTES(M_R+#R_2 : 
> 154 P 159 OPC_EXTV> 15> 1, M_RD+R_1, i Extv #15, #1, (R1), 
> 1544 159% M_RFR_0); RO 
3 1545 1595 
: 1266 1228 ' Test for an exponent of zero. 
3: 1547 159 ! 
3 1548 1598 EMIT_BYTES(OPC_CMPW) ; ! CMPW 
3 1549 1599 EMIT-LITE(K_WORD, . HGHCX_mMB1)); ! #*°X7F /7F/0F /00 
> 1550 P 1600 EMIT~BYTES(M_RD+R_1, i (R1) 
3; 1551 1601 OPc_BGEQD, 0); ' BGEQU 1$ 
: 1286 1606 TMP = .CUR_PC; 
3 433 16 
: 1228 1eRe Copy the number, complementing if negative | 
; 1328 16 $ DECR I FROM .FDGHCX bend /ent TO 8 dO ' Do 2/4/4/8 times 
s 155 P 16 EMIT_BYTES(OPC_RORWS, M_R+R_O, ' XORWS RO 
: 1358 1608 “M_AI#R71, M_AD+R_2)3 (RI)+, =(R2) 
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Insert the sign bit 


EMIT BYTES(OPC_INSV, M_ReR 9. r. ¢ ' INSV RO, #7 
R BD+ Ree, joes x_CENJ=1 : oe G76/8/ ont cr2> 

TMPL= 1W7e CUR _PC = J TMP; i1$: 

TMP = “CUR P 


Zero the eauinatiud 

if .FDGHCX X_LEN] GEQ 16 THEN EMIT_BYTES(OPC_CLRQ, M 

IF .FDGHCX_LEN] GEQ THEN EMIT_BYTES(OPC_CLRQ, M 
SE EMIT_BYTES(OPC_CLRL, M_ 

TMPC=-1] = .CUR_PC = .TMP; 


! Store the new datatype 
Note that this is stored in it's normalized form. 


KBFCKBF_TYPE] = He tae payee 8; 
KBF CKBF -FOShT ION 
KBF CKBF_CVT TRUE; 


Return the length in bytes of the converted keys. 
RETURN .FDGHCX_LEN); 


END; 
0070F .BLKB 1 
04 00710 OWN_FDGH: 
.BYTE 4 
00 00711 “BYTE 0 
007F 00712 “WORD 127 
08 00714 “BYTE 8 
00 00715 “BYTE 0 
007F 00716 “WORD 127 
08 00718 “BYTE 8 
00 00719 “BYTE 0 
OO0F OO71A “WORD «15 
10 o071C "BYTE 16 
00 0071D “BYTE 0 
0000 O0071E “WORD 0 
003C 00000 GEN_CONVERT_FLT: 
WO Save R2,R3,R4,R5 
55 FB7E CF 9E 000 : MOVAB EMIT TDISP, RS. 
4 06 AC D 00 MOVL 
53 09 DO 0000B MOVL Wo" Fae Ge SRC 
02 Ad 1 £1 0000 BBC “ a KB re 
33 A DO or MOVL ai REGS q 
4A BF 9A 00016 18: MOV ZBL 
0113 C5 16 OOOIA JS 4675 
50 64 3C OOO1E MOVZWL (KBF), RO 
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209 bytes, Routine Base: 


; Routine Size: 


toa 
sag HCRSHME LAE] EGHAM a 


“Sep SORT32.SRCISORKEYSUB (21) Vv 
; 1588 1637 1 SIF _NOT HOSTILE %THEN ; 3 
; ! 89 16 § ROUT INE GEN_ CONVERT _UDEF : } 
: 1591 1640 1 PKBF : REF KBF_BLOCK, ! Key description 31 
: 1238 1641 1 DISP “ ! Displacenent from SRC2 : 3 
; 159 1646 1 ): LINK_COMPARE = :] 
; 1594 1643 1 S44 :) 
3 1595 1644 1 ! Functional Description: : 1 
; 1396 1645 1! : 1 
; 1230 1968 : This routine generates code to convert user-defined key data types. : : 
: 1599 1648 1 ! Formal Parameters: : 1 
; 1600 1649 1 : 2 
: 1601 1650 1: PKBE Address of the key description. ;@ 
3 1608 1651 1! This is modified to reflect the new key description. i ¢ 
: 160 165¢ 1} DISP Displacement from SRC2 of where to write the key. : 2 
3 Hb t'¢: 1o27 : CTX Longword pointing to work area (passed in COM_REG_CTX) : § 
; 1606 1655 1! Implicit Inputs: 3:2 
; 160 1656 1! i 2 
; 1608 1657 1! None. S¢ 
; 1609 1658 1! : 
3 1610 1659 1°! Implicit Outputs: 3 ¢ 
3 1611 1660 1 ! 22 
; 161g 1661 1! None. 7 @ 
: 161 1668 1! 22 
3 1614 1663 1 ! Routine Value: ie 
; 1615 1664 1 ! : 2 
; 1616 1665 1! Length in bytes of the converted key. ‘ é 
> 1617 1666 1! 22 
; 1618 1667 1! Side Effects: : 
; 1619 1668 1! i @ 
> 1620 1669 1! None. 3 @ 
; 1621 1670 1! i 2 
: 16 é 1671 1 i-- 22 
3 162 167¢ 2 BEGIN 4 
; 1604 167 EXTERNAL REGISTER 4 
> 1625 1674 CTX = COM REG_CTX REF CTX_BLOCK, ie 
; 166 1675 CUR PC = R_TUR PC REF BLOCK i@ 
; 1627 1676 BRANCH = R~BRARCH REF VECTOR; ig 
> 1628 1677 EXTERNAL ROUTINE 2 
i 1689 1678 SORSSDTYPE_KBF ; i ¢ 
3; 16 1679 AL E : 
3 1631 1989 KBF: REF KBF_BLOCK, ! Key description : 
3 1036 1681 E ° ' Source register ; : 
: 163 1o8¢ CVTRBF: KBF_BLOCK ' Converted key description : 
3 1634 16 CVTRIN: INITIAL(OS, ' Conversion routine : 
3; 1635 1684 CMPRTN: INITIAL(O), ! Comparison routine : 
: 1638 1685 STATUS; ‘ 
3; 163 16 : 
3 1638 Check before calling SORSSDTYPE_xxx : 
5 Hy 19 : IF FUN_K_KANJI THEN 0 ELSE RETURN 0; : 
5 1046 1691 ! Normally, the source comes from the input record (COM_REG_SRC2). : 
; 164 1036 ' However, for indexed sorts, the key aay have already Been moved to the : 
3 1644 169 ‘ internal format record. If so, use CO -REG_SRC2 as the input register. : 
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= PKBF(BASE ); 

_SRC_= COM REG SRC1; 
KBFCKBF_COT) THEN REG_SRC = COM_REG_SRC2; 
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Analyze the key 
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CVTKBFCKBF_TYPE) = .KBFCKBF_TYPE); 
CVTKBFCKBF-ORDER] = .KBFCKBF_ORDER]; 
CVTKBFCKBF-POSITION] = 0; 
CVTKBFCKBF LENGTH) = skBF [kee LENGTH); 
STATUS = SORSSDTYPE_KBF (KBFCBASE_J, CVTKBFCBASE_J, CVTRTN, CMPRTN); 
IF NOT .STATUS 
THEN 
BEGIN 
66 SORSSERROR(SOR$_RTNERROR, 0, .STATUS): 
66 KBFCKBF_TYPE) ="DSC$K_DTYPE_Z; 
66 KBFCKBF-LENGTH) = 0; 
66 RETURN 0; 


oo 
oa 


Call the conversion routine 


if .CVTRTN NEQ 0 
THEN 


ooo 


L 

TMP: REF VECTORC BYTE); 
ROOM(44K_LITE+4+2+K_LITE+2+K_DISP+2+K_ABSA+8+K_LITE+2+K_ABSA); 
Call the conversion routine 
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IF .REG_SRC EQL COM_REG_SRC1 AND 
ne KBF_LENGTH]+.KBFCKBF_POSITION] GTR .CTXCCOM_SRLJ 
BEGIN 
68 p EMIT _BYTES( 
68 P OPC_MOVZWL, M_R+R_6, M_R+R_O, ' MOVZWL R6, RO 
684 W2); i SUBW2 
685 EMIT_LITE(K WORD, .KBFCKBF_POSITION)); #srcoff, 
686 P EMIT~BYTES(A_R+R_O, i RO 
687 P OPC_BGEQD, 27 i BGEQU 0$ 
688 OPC~CLRW); i CLRW 
68 END 
690 ELSE 
691 BEGIN 
69¢ EMIT_BYTES(OPC_MOVZWL) : 1 MOVZWL 
693 EMITILITE(K_WORD, .KBFCKBF_LENGTH)); i tn 
695 P EMIT_BYTES(M_R+R_O, RO 
696 OPC_MOVAB) ; i MOVAB 
69 EMIT_DISP(.KBFLKBF_POSITION],.REG_SRC); i xx(Rsrc), RI 
698 EMIT“BYTES(M_R+R_1> OPC MOVZUL) ; i MOVZWL 
699 EMIT-LITE(K_QORD> .CVTKBFCKBF LENGTH)); i fn, R2 
00 EMIT_BYTES(A_R+R_2, OP $ ' 

701 EMITDISP(.DISP,~COM_REG_SRC2); xx(Rsrc2), R3 
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: 1708 1751 EMIT_BYTES(M_R+R 3, OPC_JSB); ' SB 

$ 170? 17 ¢ EMIT_ABSA(.CYTRTA); : CVTRTN 
3; 17 17 

3; 1705 1754 ' Check the status 

3 1708 1755 ' 

3 178 17 8 ! It is tempting to also check for SORS$S_DELxxx codes, or to 
3 1708 Ve delete the record if an error occurs. 

: 1710 17 5 TMP = .CUR_PC + 3; 

: 1711 P 1760 EMIT_BYTESTOPC BLBs, M_R+R_O, 0, ' BLBS RO. 1$ 

: 12g P 1761 C_ » M_RFR_O i PUSHL R 

: 171 P 126¢ OPC"CLRL, M_AD+R“SP, i CLRL -(SP) 

: 1714 176 OPC"PUSHL) ; i PUSHL #SOR$_RTNERROR 
> 1715 1764 EMIT_LITE(K-LONG, SOR$_RTNERROR); 

: rie 1765 EMIT_BYTES(OPC CALLS 3); ' CALLS #3 

> 171 1766 EMI TIABSA(SORSSERROR) ; i SORSSERROR 
: 1718 1767 z TMPC=1) = .CUR_PC = . TMP; i Correct displacement 
: 1720 1769 ! Store the new datatype 

3: 1721 1770 ! 

: 17 : 1771 KBFCKBF_TYPE] = .CVTKBFCKBF_TYPE]; 

: 17 12% KBFCKBF-ORDER) = .CVTKBFCKBF_ORDER); 

3; 17246 177 KBF cor ot Santee = .DISP; 

> 1725 177% KBFCKBF-LENGTH = .CVTKBFCKBF_LENGTH); 

3; 1726 1775 KBFCKBF_CVTJ = TRUE; 

8 ist a END; 

3; 1728 177 

3 4 3 1778 Convert to it's normalized form. 

; 1731 1780 If .KBFCKBF Aaa? ha MAX_SUPPORTED THEN 0 

: 17 ¢ 1781 ELIF .DSC_BYINARYC.KBFCKBF_TYPE]J 

3; 17 1786 THEN 

3 1734 178 BEGIN 

3; 1735 P 1784 IF ONEOF (.KBFCKBF_TYPE], BMSK_(DSCSK_DTYPE_BU,DSCSK_DTYPE_Wu, 
317 1785 4 DSC$R_DTYPE_LUTDSC$K_DTYPE-QU,DSCSK_DTYPE_OU)) 

> 1737 1786 THEN KBFCRBF_TYPE) = DSCSK_DTYPE_BU 

3 17 1787 ELSE KBFCKBF_TYPE) = DSCSK_DTYPE_B; 

; 1739 1788 END; 

; 1740 1789 

3 1741 1790 ' Return the Length in bytes of the converted keys. 

: 1708 1791 ! 

3 174 1038 IF .CVTRTN NEQ 0 

3 1744 179 THEN 

: 1745 1794 RETURN .KBFCKBF_LENGTH) 

: ire 1795 ELSE 

3; 174 1798 RETURN 0; 

; 1748 179 

3; 1749 1798 END; 


.EXTRN SORSSDTYPE_KBF 


8 FBO CF 9E 0000 gHORD Save R24R3.R4.RS.RO_R7 RE : 1638 
SE 8 €5 0000 SUBL2 #8, ' : 


H 4 
SORSKEY_SUB 16-Se :5 AX-11 Bliss-32 v4.0-7 P 
y0n. 080 18: et 7 9: 93; 2s SORT32.SRCJSORKEYSUB. 8 2:1 o0e 233 
7E 7 A CLRQ  CMPRTN : 167 
47 006 £5 o¢ BLBC  S*FUN_K_KANJI, 2$ : 1889 
4 04 ae D 4 MOVL PKBF, KBF : 1695 
g D 1 MOVL #9, REG_SR : 1696 
03 02 Ad 1 € 16 BBC #1. 2(KBF), 1$ + 169 
55 A 09 1B MOVL #10, REG SR ; 
08 AE 64 D 1€ 1$ MOVL (KBE), COTKBF + 1701 
56 OAR Be BOVAB | SCKBF) : 1583 
OE AE $6 i 09 9 OVW <6), tvibares : 
—E DD D PUSHL SP + 1705 
08 AE OF 0 F PUSHAB CVTRTN : 
10 AE OF PUSHAB CVTKBF : 
54 DD 000 PUSHL KBF : 
000000006 09 4 FB 00 CALLS #4, SORSSDTYPE_KBF ; 
1 0 €8 000 : BLBS STATUS, 3$ : 1706 
0 DD O04 PUSHL STATUS + 1709 
001C812A 8F DD 09048 PUSHL #1868074 : 
000000006 00 03 FB 0048 CALLS #3, SORSSERROR : 
64 B4 9005 CLRW 3 s«(KBF) + 1710 
6 B4 0054 CLRW = (RO) + 1711 
OOF3 31 90056 a8: BRW 10$ + 1712 
57 D4 0005 $: CLRL sR? + 1717 
04 AE DS 0058 TSTL  CVTRTN : 
03 1 9005 BNEG 4$ ; 
00¢e 31 0006 BRW 7$ ; 
3 D6 00063 4$: INCL R7 : 
50 DO 00065 MOVL #54, RO : 1723 
00BD CB 16 00068 JSB R ; 
09 55 D1 9906¢ CMPL = REG_SRC, #9 + 1727 
2¢ 12 0006F BNE F 
50 56 3¢ 00071 MOVZWL  (R6) : 1728 
51 04 A& 3C 00074 MOVZWL aKa) : 
50 51 CO 00078 ADDL2 R ; 
50 0086 CB 10 09 ED 00078 CMPZ2V a0. #16, es Sty RO F 
19 18 00082 BGEO : 
8A A250563C = BF p0 00084 MOVL #-1571793348, (CUR_PC)+ : 1733 
3 04 A& 3¢C 00088 MOVZWL 4(KBF), R3 + 1734 
52 08 DO 0008F MOVL : 
6 0098 JSB EMIT Lite : 
8A B4021E50 8F D 00 MOVL  #-1274929584, (CUR_PC)+ : 1737 
A B40 80098 5S Gtva «80, (CUR.PCD* eet 
6 ze 6 A MOVZWL (Bos RS . : 1742 
2 b0 A OVL 3 
1 JSB EMIT bar ; 
A 9E50 F B 6$: MOVW 9 oe PC)+ : 1745 
3 5 Ap MOVL REG : 1746 
04 A& 3¢ 0008 MOVZWL atcha ie ; 
AA AB : B4 JSB EMIT i sh ; 
A 3¢51 BF 2 87 MOVW #15421, (CUR_PC)+ + 1747 
3 0E AE 3¢ 0008 MOVZWL CVTKBF+6, R3 : 1748 
0 C MOVL 3 
¢ JSB EM{T 5 TE ; 
8A 9652 BF B ¢ MOVW  #-25006, (CUR_PC)+ > 1749 
5 AD CA MOVL #10, R : 1750 
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17 ¢ ROUTINE  saaciaitele 


H 1800 1 

3; 17 1 4 1 

; 1754 1 § 1 PKBF : REF KBF_BLOCK, ! Key description 
; 1755 1805 1 INDEX ! Number of the key 
3: 17 ° 1804 1 ): NOVALUE LINK_COMPARE = 

Bis 1805 1 !4¢4 

3 17 8 1 88 1 ! Functional Description: 

3: 17 1 1! 

3; 1760 1808 1! This routine generates a single key compare. 

: 1761 1809 1! 

s 176¢ 1810 1 ! Formal Parameters: 

3: 176 1811 1! 

3 1764 1 \§ 1% PKBF Address of the key description. 

3: 1765 18135 1! INDEX Index of the key, 0 indicates the first key 
>; 1766 1814 1! CTX Longword ate pos , to work area (passed in COM_REG_CTX) 
3; 1767 1815 1! (used only for COM_COLLATE) 

: 1768 1 18 1! 

3; 1769 1817 1°! Implicit Inputs: 

3; 1770 1818 1! 

3: 1771 1819 1! None. 

; ize 1820 1! 

3 177 1821 1°! Implicit Outputs: 

3 1774 18 ¢ 1! 

3 1775 18 1! None. 

3 1ore 1824 1! 

3 177 1825 1 ! Routine Value: 

3; 1778 1826 1! 

3 1779 1827 1! Status code. 

3; 1780 en 1; 

3; 1781 1829 1 ! Side Effects: 

3 1786 1830 1! 

3; 178 183) 1! None. 

: 1784 18 ¢ 1! 

3: 1785 ise 1 !e- 

3 1786 1834 BEGIN 

3: 1787 1835 EXTERNAL REGISTER 

3; 1788 1836 CTX = COM_REG_CTX: REF CTX_BLOCK, 

3; 1789 1837 CUR_PC = R_CUR Bc: REF BLOCK 

> 1790 1838 BRANCH = R~BRANCH: REF VECTOR; 

3 1791 1839 LITERAL : 

3 178 H+ 94 -MAXDEC = 31; ! Maximum Length of decimal data 
: 1794 4 1842 CMP_(OPC, SU, OFF) = 

: 1795 i H 9 N 

3; 17 M 1844 IF ZNAME('OPC_*,OPC) LEQU ZX'FF’ 

> 179 mM 1845 XTHEN EMIT_BYTE(ZNAME('OPC_',OPC)) 

; 1798 41 r] ZELSE EMIT_WORD(ZNAME('OPC_*,OPC)) 

3; 1799 41 IF I; 

: 1800 m1 8 OPOPNEQ( 

; 1801 4 Hf: -KBFCKBF POSITION) ZIF NOT Pt Care ZTHEN + OFF ZFL, 
3 1306 m 1850 ZNAME ('K_*,SU)+.KBFCKBF_ORDER)); 

3 1 1 2) END 2; 

3; 1804 1 ¢ 

3; 1805 185 LOCAL 

: 9 : 32 KBF : REF KBF_BLOCK; ! Local copy of pointer to key 
3; 1808 1856 KBF = PKBFCBASE_); 
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: 1809 1857 

; 13/9 ! 35 Case on the datatype to generate code 

: 1 ig 186 ROOM(2+K_OPOPNEQ); 

; \ 3 61 CASE OF KBF_TYPE] FROM 0 TO 28 OF 

; 1819 . e§ “ DSCS$K_DTYPE_TJ: IF .KBFCKBF_LENGTH] GTRU O THEN 

3 1818 C 1865 ! This section of code can be used to compare implementations 
: 1818 C1 r¢ ! of the DEC_MULTINATIONAL collating sequence. 

MB EIB : 

> 1821 C1 é9 BEGIN 

: 18 g € 1870 LOCAL 

; 1824 C 1878 RSL: VECTOR 

> 1825 C 187 BUF:  VECTORC1,BYTE), 

; 1826 C 1874 STATUS: 

: 18 € 1875 LOG ; = XCHARCOUNT('STRSCOMPARE_MULTI'); 

> 1828 C 1876 LOGE1) = UPLIT BYTE('STRSCOMPARE MULTI"): 

+ 1829 € 1877 RSL 0} = TAL CATION(BUF); 

: 1830 ¢ 1878 RSLC1) = BUFLOI; 

: 1831 € 1879 STRNLOG(LOGNAM=LOGCOJ, RSLBUF=RSLCOJ) EQL SS$_NORMAL 
; 1832 C 1880 END 

: 183 C 1881 THEN 

: 1834 C 188¢ BEGIN 

> 1835 C 188 EXTERNAL ROUTINE 

> 1836 C 1884 STRSCOMPARE MULTI: ADDRESSING_MODE (GENERAL); 
> 1837 C 1885 ROOM(2*(14+K_DISP+1+K LITE) +12+K_ABSA+5#K_BNEQ) ; 

3: 1838 C 1886 EMIT_BYTE(OPC_PUSHAB); 

: 1839 C 1887 EMIT“DISP( .KBFCKBF POSITION], COM_REG_SRC1); ' xx(Rsrcl) 
: 1840 C 1888 EMIT~BYTE (OPC_PUSHL) ; 

> 1841 C 1889 EMIT-LITE(K_LONG, .KBFCKBF_LENGTH)); 

; 1848 C 1890 EMIT~BYTE (OPC _PUSHAB); 

: 184 C 1891 EMIT-DISP(.KBFCKBF POSITION], COM_REG_SRC2); ' xx(Rsrc2) 
+ 1844 ¢ 189¢ EMIT~BYTE (OPC_PUSHL) ; 

: 1845 € 189 EMIT-LITE(K_LONG, .KBFCKBF_LENGTH]); 

> 1846 C 1894 EMIT~BYTES(OPC_PUSHL, 1, OPC_CLRL, M_AD+R_SP, 

> 1847 C 1895 OPC_PUSHAB; M_BD+R_SP, 

: 1848 C 1896 OPC"PUSHAB, M_BD+R~SP, 20, 

> 1849 C 1897 OPC” CALL : 

+ 1850 C 1898 EMIT_ABSA(STRSCOMPARE_MULTI); 

: 1851 C 1899 EMI T~BYTES (OPC ADDL 16, M_R+R_SP, OPC_TSTL, M_R+#R_0); 
; 185¢ C1 90 EMIT~BNEG(K_S+-KBFCKBF_ORDERJ); 

: 185 C1 END 

: 1854 ¢ 190¢ ELSE 

: 1855 190 3 

; 1896 1904 BEGIN 

: 185 1905 (K_SAVE_REGS+1+K_ABSA+1¢+ 

3 1858 1906 MAR(14¢K-LITE+K_DISP+K PISPssek BNEQ 

: 1859 190 14K LITEs er DISP#5+K_DISP?4+K_BNEQ)); 

+ 1860 1908 SAVE_REGS(%8°111110'7; ! Save R1..R5 
: 1861 1909 EMIT~BYTE(OPC_MOVAB) ; 

: 4 : 1910 EMITIABSA( CTRECOR. COLLATE); 

: 186 191 EMIT~BYTE(M_R#R_5); 

; 1864 191 IF .VECTORC-CTXCCOM_COLLATE],1) NEQ 0 

+ 1865 191 THEN 
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SORSKEY_SUB 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 Pa SOR 
v04=0 122808- 1382 00: F828 SORT32.$ CISORKEYSUB.B 2;1 9 8 VO4 
55 DD 0005D PUSHL  KBF : 32 
000000006 99 4 FB SF CALLS #4, SORSSDTYPE_KBF : 3 
1 0 E 66 BLBS STATUS, 4$ : 72 
DD 6 PUSHL : : 
001¢8124 BF bb Sooen BUSHL  #1B6B076 : : 3 
000000006 00 03 F O078 CALLS 4 SORSSERROR : 3 ¢ 
6— D5 OOO7A 4$: TSTL MPRIN : 3 2. 
p 13 0007C BEQL : 3 ¢ 
50 6 007E MOVL #53, RO : 32 
F9FO 0081 BSBW = ROOM ; ; 
54 3 p60 00 4 MOVL #63, R4 : 32. 
F79F 087 BSBW SAVE _REGS : 3 ¢ 
BA 3¢ 30 0008A MOVB #60, (CUR_PC)+ ; 3 ¢ 
53 06 AS 3¢ 0008D MOVZWL 6(KBF), R3 : : $ 
52 : 6 0091 MOVL R : 3 2. 
F9 0094 BSBW EMIT Lite : ; 
8A 5250D050 BF p0 0097 MOVL  #1387027920, (CUR_PC)+ : :¢ 
8A 9 BF 9 9009 MOVB #-98, (CUR_PC)+ ; 3 ¢ 
53 09 DO OO0A MOVL #9, : 3 ¢ 
52 04 AS 3C OOOA MOVZ2WL 4(KBF), R2 : 3 ¢ 
F8B5 30 000A9 BSBW EMIT_DISP ; :¢@ 
BA 9651 8F BO OCOAC MOVW #-25007, (CUR_PC)+ : 3 ¢ 
53 OA 00 9008 MOVL : 3 ¢ 
52 04 AS 3C 000B4 MOV2WL 4(KBF), R2 : ; $ 
F8A6 30 00088 BSBW EMIT Disp : : 
8A 1653 BF 88 00088 MOVW #5715, (CUR_PC)+ ; 3 § 
BA 9F 8F 90 000C0 MOVB -97, (CUR PC)+ ; ; 
BA 6 DO 000C4 MOVL  CMPRTN, (COR_PC)+ : ; 
BA 5005 8F BO 000C7 MOVW #20693, (CURTPC)+ ; 3 ¢ 
0097 31 000CC BRW : 3 ¢ 
53 06 AS 3C OOOCF S$: MOVZWL 6(KBF), R3 : 3@ 
01 12 90003 BNEQ &$ : 3¢ 
04 9000 RET ; 3 § 
50 37 D0 0006 6$: MOVL #55, RO : : 
F998 30 00009 BSBW ROOM : 3 ¢ 
54 3E b6 000D¢ MOVL #62 : i 
F747 OOODF BSBW  SAVE_REGS ; ; 
BA 9F9E 8F BO b00E¢ MOVW #40862, (CUR_PC)+ : : 
50 6 AB DO OO0E MOVL  104(CTX), RO ; : 
BA 5 b0 OO0EB MOVL RO (CUR PC)+ ; : 
BA 55 BF 90 O00E MOVB #85, (CUR_PC)+ F ; 
04 Ad D5 OO0F TSTL 4(RO) ; : 
2 1 OOF BEQL «= 7$ ; : 
BA 9 F MOVB #41, (CUR_PC)+ : ; 
52 ; p OFA MOVL #2, R ; : 
F8B OOFD BSBW ss EMAT_LITE : : 
53 0 ot MOVL 4&9 ; : 
52 0 OA 1 MOVZWL 4(KBF), R2 ; : 
F85 01 BSB EMI F : 
53 OA 10A MOVL = #1 ; 3 
52 04 AS 10D MOVZWL 4(KBF), R2 F : 
F84D 111 BSBW EMIT _D SP : : 
BA 13 BO 00114 MOVW #19,7(CUR_PC)+ ; : 
31 A 00 00117 MOVL CU ; 3 
A B516 BF 8 11A MOVW #-19178, (CUR_PC)+ ; ; 
BA 4 11F MOVB #4, (CUR_PC)+ ; : 


se Y_SUB 18-3 sep- 1384 9: $3: 1 AX-11 Bliss-32 V4.0-7 Page $3 


0:4 SORT32. SRCJSORKEYSUB. 8 2:1 ) 
4 02 AS 3¢ 00122 MOVZWL 2(KBF), R4& : 1923 
2 03 1 $ ADDL2 #2 Re : . 
F7 1 BSBW ss EMIT_B : 
FF OA SA 5} ; ' SUBB3 TMP, “FOR. _PC, -1(TMP) : 1924 
BA ‘ 132 7$: MOVB #60, (CUR_PC)+ : 1998 
52 p 1 MOVL + 1929 
FB7C 1 BSBW EMIT jTe : 

8A 9E50 BF 80 or MOVW  #-25008, (CUR_PC)+ + 1930 

53 9 14 MOVL + 1931 
52 04 AS 3C 0014 MOVZWL 4(KBF), R2 F 
F817 O14 seu EMIT 8% : 

BA 52500051 a DO 0014A MOVL #1387 921 (CUR_PC)+ : 1932 
BA 9— 8F 90 00151 MOVB #-98, (CUR_PC) ; 

83 OA 00 00153 MOVL #10 asv + 1933 
52 04 AS 3¢ 00158 MOVZWL 4(KBF), R2 ; 
F802 30 0015¢ BSBW sEMIT Disp : 

8A 00B51653 8F b0 0015F MOVL #11887731, (CUR_PC)+ + 1934 

54 02 AS 3C 00166 8$: MOVZ2WL 2(KBF), R& + 1941 
54 02 £0 0016A ADDL2 #2, R4& ; 
F70F 0016D BSBW  EMIT_BNEQ ; 

04 90170 RET + 1863 

53 06 AS 3C 00171 9$: MOVZWL 6(KBF), R3 + 1946 
01 12 00175 BNEQ  10$ ; 
04 00177 RET : 

50 42 8F 9A 00178 10$:  MOVZBL #66, RO + 1950 
F8F5 30 0017C BSBW 00m ; 

8A 91 BF 90 0017F OVB #-111, (CUR_PC)+ : 1951 
54 02 AS 3C 00183 MOVZWL 2(KBFS, : 
52 04 A5 3¢ 00187 MOVZWL 4(KBF), R2 : 
F809 30 00188 SBW  OPOPNE : 

01 53 B1 0018E PW sR3 + 1952 
01 1A 00191 BGTRU 11$ ; 
04 00193 T ; 

54 OE 20 00194 11$:  MOVL #14, R4& : 1955 
FO8F 30 00197 BSBW = SAVE_REGS : 

BA 23 90 0019A MOVB #41, ~(CUR_PC)+ + 1956 

3 07 0019D DECL R3 : 1957 
52 02 00 0019F MOVL F 
F812 30 O1A2 BSBW en Sir® Cite, : 

52 04 AS 3C OO1A MOVZWL 4(KBF), : 1958 
32 6 00149 INCL R2 : 
54 02 AS 3C O01AB MOVZWL 2(KBF), R4 : 
008F 31 OAE BRW 5$ ; 

53 06 AS ¢ 1B2 12$:  MOVZWL 6(KBF), L + 1968 

50 53 FE BF 0186 ASHL 4-2. L : 1969 
30 1D C4 001BB MULL a2 ; RO : 
0 3A 0 O1BE ADDL2 #58. RO : 
F880 gic SBW ss ROOM : 

54 02 AS 3C 00164 MOVZWL 2(KBF), SU : 1970 

06 3 8] 1¢€8 CMPW (KF), : 1971 
; 1¢B BNEQ 138 ; 
54 é § 1Cp ADDL2 #2, SU : 

58 04 +A 100 13$: MOVAB 4(KBF), R8 : 1976 
51 ; p 104 MOVL = #2, : 

57 o1 107 14$:  ASHL. I, #1, R7 : 1972 
56 3 7 C3 001DB 15$:  SUBL3 R?, L. 2 : 


POPGPIPIPOPIPIPIPININIPIPIPIPIPIPIPIPIPIPIPINI INI NIPINININI NINN NININININININININININININPINIPINPINNPIPPPy Pons 


pS 
yon e000 12=86871382 99:98: SbaTd2 $ReisoRKe S08 682; Page 25) 


19 19 O1DF BLSS 5 ; 

A FEI7 cro) 20 te] MOVB PCI], (CUR_PC)+ + 1974 

: ¢ OIE MOVZyL 8), RO + 1976 
52 6 g1 1EA ADDL3 72, RO, R2 : 
F7A6 0 TEE BSBW OPOPNEQ ; 

53 36 p 1F MOVL L + 1978 

4 02 AS 3C 001F4 MOVZ2WL 2(KBF), SU : 1979 

EI 11 OO1F8 BRB 5$ + 1972 
DA 1 £4 OO1FA 16% SOBGEQ I, 14$ ; 

94 1FD RET t 1861 

6A 51 BF 90 oot 17$ OVE #81. (CUR_PC) + 1982 

6A 71 rf 90 6 ° 18$:  MOVB #113, (CUR_PC) + 1983 
A 06 8 19$: INCL cUR_PC : 
2A 11 OO020A BRB 4$ ; 

6A SiFD 6 BF. «BO 0020C 208 MOVW #20989, (CUR_PC) + 1984 
05 11 00211 BRB 22$ ; 

A 71FD BF 60 00 13 218: MOVW #29181, (CUR_PC) + 1985 
A 08 CO 00218 22$: ADDL2 #2, CUR_PC : 
19 11 0021B BRB 24$ ; 

50 25 00 021D 23$: MOVL #37, RO : 1988 
F851 30 00 9 BSBW ROOM : 

54 OE : 0 MOVL + 1989 
F60 0226 BSBW SAVE. : 

8A 35 0 00229 MOVB a5 -RECS PC)+ : 1990 

53 06 AS 3¢C 0020C MOVZWL 6 (KBr). R3 + 1991 
52 02 : 0 6 MOVL ; 
F781 00 BSBW sa LITE : 

54 02 AS 3C 00236 248 MOVZWL (KBP), : 1992 
54 02 CO 00354 ADDL2 : 
52 04 AS 3c 0230 MOVZWL feet} ; 
F753 30 00241 258: BSBW OPOPNEG : 

04 00244 RET + 1861 

0011124 8F DD 00245 26$:  PUSHL #1839396 : 2030 
000000006 00 01 FB 00248 CALLS #1, SORSSERROR ; 

04 00252 RET > 2034 


; Routine Size: 595 bytes, Routine Base: SORS$RO_CODE + 0943 
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SORSEEY SUB ib-sep-1964 00:28:5) YAR Blisg=52 V4.0-742 Page. 


: 1388 6 ‘ ! ROUTINE MOVE_KEYS 

> 1990 1 KEY_BUFF: REF KEY_BLOCK, ! Key descriptions buffer 

3 1991 0 3 1 ISP “4 ! Displacement from SRCS | 
; 123 878 ! ae ): LINK_COMPARE = 

: 199% 041 Functional Description: 

: 1996 a8 1 i This routine generates code to save unconverted keys 

; 1332 bee : (for non-record sorts). 

: 046 1 i Formal Parameters: 

; 2000 047 1! 

3; 2001 ek: 7 | KEY_BUFF Address of the key descriptions buffer. 

; 200 049 1! This is modified to reflect the new key descriptions. 

; 200 050 1! DISP Displacement from SRC2 of where to write the hey, 

; Boe 034 : CTX Longword pointing to work area (passed in COM_REG_CTX) 

; 006 053 1! Implicit Inputs: 

; 200 054 1! 

3 3009 B22 ! None. 

: 010 bao 1: Implicit Outputs: | 
: 2011 058 1! 
: $018 060 1 | sana 

; Bie $91 ! ; Routine Value: 

: $919 684 : Length in bytes of the copied keys. 

: 2018 2065 1 | Side Effects: 

: 2019 066 1! 

: ost 067 1! None. 

: $053 069 1 | 

: $098 090 "BEGIN 

3 Ose 071 EXTERNAL REGISTER 

3; 2025 628 CTX = COM_REG_CTX: REF CTX_BLOCK, 

; 06 O73 cocacun-Pt = R_CUR_PC: REF BLOCK; 

> 2028 $078 BUFF: REF KEY BLOCK, ! Local copy of KEY_BUFF 

3 $085 376 TCNT; ! Number of bytes copied by this routine 

3 3 ? 3 BUFF = KEY_BUFFCBASE_); 

: O82 O79 Analyze the unconverted keys to determine which bytes must be copied | 
: 20 a8 CVICNT = 0; 

3 , 5 0 § WHILE TRUE DO 

3 08 BEGIN 

F 83 Bae LOCAL 

; 2038 8 5 LOPOS, 

; Oz R O8 HIPOS; | 
: Hl 33 Find the first byte containing an unconverted key. 

; 90 LOPOS = -1; 

> 2044 oR DECR 1 FROM .BUFFCKEY_NUMBERJ-1 TO 0 DO 


rata 


O1FC 00000 MOVE_KEYS: 
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voe 12780 8=1 382 99: bias YSoats2° sre SORKEYSUB.B52;1 ’ (2%5 
; 2045 98 4 BEGIN - | 
H Beg 95 4 BIND Y = pure ceey KBF(.1)]: KBF_BLOCK; | 
; 204 94 4 IF NOT .YCKBF_CVTJ AND .YCKBF_POSITION] LSSU .LOPOS a4 
; 2048 095 4 THEN a4 
; 2049 B38 4 LOPOS = .YCKBF_POSITION]; s 4 
; S20 83 END; : 
; 082 039 IF .LOPOS LSS 0 THEN EXITLOOP; ! Exit of no more found : | 
3; 2054 101 ! While we are finding unconverted keys that overlap this key, +4 
3 be? 198 } take the overlap of the two pieces. | 
: 089 108 HIPOS = .LOPOS; | 
; 2058 105 WHILE TRUE DO s 4 
; 2059 106 4 BEGIN e 4 
; 2060 107 4 LOCAL FOUND a 
; 2061 108 4 FOUND = FALSE; a 4 
$ 066 109 4 DECR I FROM .BuF FCKEY_NUMBERJ-1 TO 0 DO a4 
; 206 110 2 GIN a4 
; 2064 111 BIND Y = purrceey go eet KBF _BLOCK; + 4 
; 2065 1 5 IF NOT .YCKBF_CVTJ AND .YCKBF_POSITION] LEQ .HIPOS - 4 
3 p68 113 «5 THEN - 4 
; 206 114 6 BEGIN s 4 
; 2068 115 6 FOUND = TRUE; +4 
; 2069 118 6 HIPOS = MAX(.HIPOS, .YCKBF_POSITION] + LEN_(YCBASE_J)); ‘4 
; 2070 117 6 YCKBF_CVT] = TRUE; | 
3; 2071 118 6 YCKBF_ POSITION] = .YCKBF_POSITION]+.DISP+.CVTCNT-.LOPOS; a 4 
; Ore 119 «5 END; s 4 
; 207 120 4 END; | 
3; 2074 121 4 IF NOT .FOUND THEN EXITLOOP; | 
: 2075 128 END; 2 
; 2076 12 3 4 
3 Oo. \$3 We found everything that overlaps this piece, so allocate it : 
: $079 136 IF .HIPOS NEQ .LOPOS ! Check for zero Length ar | 
; 2080 12 THEN | 
; 2081 128 4 BEGIN s 4 
; 208 129 4 ROOM(K MOVE); e 4 
; 208 130 4 GEN_MOVE_VAR(.HIPOS = .LOPOS, .LOPOS, COM_REG_SRC1, Pa | 
3; 2084 131 4 -DISP + .CVTCNT, COM_REG_SRC2); 3 4 
; 2085 1 ¢ 4 CVTCNT = .CVTCNT + .HIPOS = [LOPOS; | 
3; 2086 1 END; s 4 
3 eH : : END; e 4 
: e { 
3; 2089 1 § RETURN .CVTCNT; ! Return the number of bytes this routine converted s 4 
; 2090 137 1 END; if 
e 4 
e{ 
| 
e{ 
"WORD Save _R2,R3,R4,R5,R6,R7,RB : 2035 2 
56 04 Ac DO 0000 MOVL KEY BUFF, BUFF > 20 :| 
3 D4 CLRL CVTCNT 3 $3 3 4 
37 1 ge 1$: MNEGL #1, LOPOS ; 20 3 | 
1 66 3C€ 00008 MOVZWL (BUFF), ; 2091 31 


— 
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SORSKEY_SUB 18-se -1984 00:29:5 AX-11 Bliss-32 V4.0-74 P 7 S 
v04= eae Pay He Pt Pt hg rae age 28) vol 
1 1 0000 BRS $ ; 2 
Pe Mita 8 Ca a eae fmm] |i 
57 04 6 1 09 i 1A CMP EV #0, #16, bkd), LOPOS : $f 
57 04 Ad 3¢ MOVZWL 4 (RO), LOPOS : 096 : 
£7 1 FG 3$: SOBGEG 1, 2$ + 209 | 
b3 TST.  LOPOS + 2099 34 
3 } 8 B5EG iG : 2 
00 ¢ 1 ORwW 12$ : $4 
52 dO 4$ MOVL LOPOS, HIPOS + 2104 3 
4 5$ a FOUN : 210 $4 
54 g f yd WL { thee I : 21 a | 
° e 4 
50 02 A64 43 O3A 6$ MOVAQ 2 (BUFF) C13, RO + 2111 34 
48 02 A0 01 EO 0003F BBS #1, 2(RO), 10$ > 2112 24 
52 04 Ad 1 0 FD 0044 CMP2v #0. #16, 4(RO), HIPOS : 4 
40 14 0004A BGTR 108 : 3 4 
38 01 00 Rhee MOVL #1, FOUND 3: 2115 $4 
1 60 B1 0004F cMPW 3=Ss«(RO), #21 + 2116 3 
08 12 00052 BNEQ 7$ : 3 
51 06 A 3¢C 00054 MOVZWL 6(RO), R1 : ; 4 
51 0¢ C6 00058 DIVL2 #2, Ri : Har 
1 06 00058 INCL 1 : 34 
04 11 90040 BRB 8$ : 34 
51 06 AO 3 O05F 7$ MOVZWL 6(RO), R1 : +} 
53 04 4g C tet 8$ MOVZWL 4(RO), R3 $ 2; 4 
5} 53 C0 0006 ADDL2 R3, R ; 34 
53 3¢ DO OO06A MOVL HIPos R3 : 34 
51 53 1 0060 CMPL sR, RI : 34 
03 18 00070 BGEG )60s«9S : 24 
53 1 D O07 MOVL R11, R3 : $4 
52 53 pO 00075 98 MOVL 3. HIPOS : o2 
02 AO 02 8 0078 1SB2 #2. 2(RO) : 17 34 
51 04 Ad 3C 0007C MOVZWL 4(RO), R1 : 2118 34 
51 08 ac CO 00080 ADDL2 DISP, R1 : 34 
51 55 ¢ 00084 ADDL2 CVICNT, R1 : & 
04 Ad 51 37 A3 00087 SUBW3 LOPOS, R1, 4(RO) : 3 4 
AB 4 F4 0008C 10$: SOBGEOQ + 2109 34 
Al 58 £8 0008F BLBS FOUND, 5$ : 4 1 34 
57 52 (D1 0098 CMPL -~ HIPOS. LOPOS > 2126 & 
13 009 BEQL 11$ : 24 
50 42  8F 9A 00097 MOVZBL #66, RO > 2129 ar 
F783 30 0 98 BSBW RO ; a 
A D H PUSHL #1 ; 2130 4 
08 BC45 OF 0 A PUSHAB ap ISPCCVTCNT] : 2131 2 
9 DD OO0A4 PUSHL # : 2130 2 | 
7 Dp Ong PUSHL LOPOS : 34 
7E 52 ie SUBL3 LOPOS, HIPOS, -(SP) : 34 
F7FB OCF FB OOOAC CALLS #5, GEN_MOVE VA : zi 
50 5 C 0B ADDL3 HIPOS, CVTCNT, RO > 2132 2 
0 ¢ BS SUBL OPOS. RO, CVTCNT ; 3 
FAC B9 11$: BRW > 2082 24 
50 5 b0 BC 12$: MOVL  CVTCNT, RO : 21 - 
4 0008F RET : 21 3 
; Routine Size: 192 bytes, Routine Base: SORSRO_CODE + 0896 3 
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; O36 3 1 ROUTINE EXPAND : 
; bar 1 1 ( : 
3 140 1 ORD, : 
: 5 141 1 CNT : 
; 4g DISP: REF VECTOR : 
; 209 145 1 ); NOVALUE = ‘ 
; 2098 144 1 S44 : 
3 44 13? : Functional Description: : 
; 191 109 : This routine adds CNT bytes to the field referenced by ORD. : 
; 198 149 1 ! Formal Parameters: : 
; 21 150 1! + ¢ 
3 2105 151 1! ORD Index of the field to be expanded ‘§ 
; 198 1 § 1 } CNT Number of bytes by which to expand the field : ‘ 
3 4 134 : DISP Address of the displacements table : 
; 2109 155 1 ! Implicit Inputs: : ‘ 
; 2110 138 1! ; 
3; 2111 tl ae &. None. : 
; a i+ ae: : 
3 211 159 1! Implicit Outputs: : é 
3 2114 160 1! : 
> 2115 161 1! None. 26 
; 116 HF 1! . 
3; 211 163 1 ! Routine Value: : 
; 2118 164 1! : 
> 2119 165 1} None. :¢ 
> 2120 166 1! : ‘ 
; 2121 167 1! Side Effects: : 
i glee 168 1! i ¢ 
3; 21 169 1} None. i ¢ 
3 2126 170 1! i ¢ 
> 2125 171 1 fe- i ¢ 
i 9126 17 BEGIN i ¢ 
> 21 17 2 ¢ 
; 2128 174 ! Move all the following fields down. i ¢ 
; : 9 if? } Also, if this field hasn't been allocated yet, allocate it. : ‘ 
3 , 1 179 INCR I FROM .ORD+1 TO COM_ORD_MAX DO ; 
3 21 g 199 IF_.DISPC.1] GEQ 0 e¢ 
: 5138 1B) THEN BEGIN if 
3 el 1 § 4 IF sbi set.One) Ess 9 THEN DISPC.ORD) = .DISPC.1]; a4 
3 : : 4 DISPC.1] = .DISPC.1] + .CNT; : 
3 2139 185 END; 24 
; 2140 1 s 4 
3 2141 1 END; ° 
| 
e4 
i 
0004 00000 EXPAND: .WORD Save R : $138 ar 
51 04 aC bd0 0000 MOVL ORD, R ; ei a 
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SORSKEY_ SUB 1b-se 1984 9:5 AX-11 Bliss-32 Page 70 
04-0007 Hates PA Pe Ped Pat pe te 9 
50 1 MOVL Ri, I F 
; 00 03 BRB 3$ ; 
52 OC BC4 ; 1$: ROVAL apisPCid, R2 : 
oF 1 1 BLSS $8¢) ; 

OC BC41 p 1 TSTL DISPCR1) + 2182 
03 18 BGEG $ F 
OC BC41 62 D 1A MOVL R2), 2g {SPCR1 ; 

08 ac 1 38: ADDL2 CNT (Re) : 183 

E4 09 F ; $: AOBLEQ #9, I, 1$ : 21 
04 000 RET : 2187 


; Routine Size: 40 bytes, Routine Base: SORSRO_CODE + 0C56 


oe of. OR OR OO OO RRA SRIAIARIAIAIAIAIAIAIAIA IA IAI IR IR IRI IAI IAI IAA IARI, 


L 
COM~LRL_INT Length of internal format record 
getuatty, the COM_LRL field may be increased if key stripping is being 
done, since the longest record length specified by the user doesn't 
account for the extra bytes he's put at the beginning of the record. 
Implicit Inputs: 
None . 


Implicit Outputs: 


K 5 

SORSKEY_SUB 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 71 SOF 
vOe-000 1o85b-198e 83iFoses — Pebatdo°sneSsoaxtysue-6$2;1 9° (25) vo“ 
; 143 188 1 GLOBAL ROUTINE SORSSKEY. SUB if 
: $145 190 1 KEY_BUFFER: REF KEY_BLOCK | 
A 198 191 1 ): CAL_CTXREG = : 

; 128 198 : '+4 

; 149 194 1 i Functional Description: ; ; 
: 131 196 1 i This routine generates the key comparison routines, and optionally, 3 
: ; ¢ 138 : an input conversion routine and an output conversion routine. : : 
: 134 199 1! The key comparison routine returns one of the following values: 

3; 2155 00 1! , <o"ht the first record collates before the second record > 
3 21 § Oo} 7! if the records collate equal : 
: \ 8s ! 1 if the first record collates after the second record : 

3 199 o% i Formal Parameters: ; 
3 191 4 : ; KEY_BUFFER Address of a counted List of key descriptions. ; ‘ 
3 188 $08 ; CTX Longword pointing to work area (passed in COM_REG_CTX) ; ‘ 
5 2165 10 1! The following fields of the context area are used as input: ; é 
3 168 (ee COM_ PE Type of sort (TYP_K_RECORD, etc s ¢ 
: 216 \¢ 1! COM_NUM_FILES Number of input filés + ¢ 
3 2168 as g COM_LRL Longest s"eus record length (see below) e¢ 
3 19? si¢ 1! COM_MINVFC Length of VFC area e ¢ 
3; 2170 7” FF COM_COLLATE Col hp sequence information a | 
3: 2171 2216 1! COM_HACK STRIP Flag to do key ote ipping 3 ¢ 
; 7 si 1! COM_ STABLE Flag indicating stable sort 3 § 
3s alr 18 #1! COM_V Flag indicating variable-length records . 

3 2174 219 1! COM_NO_DUPS Flag indicating to delete duplicate records : ¢ 
3 2175 $560 1! COM_MERGE Indicates what to store for stable 3 4 
; 176 $61 ! COM~PAD Pad character : ‘ 
: 2178 $558 1/ The following fields are used as input/output: 3 4 
3 2179 224 1! COM_COMPARE Comparison routine 3 4 
: 2180 $$? 1! COM_EQUAL Equal-key routine | 
; 13] $8 1 COM_TKS Total key size (hack hack) ; ‘ 
; 188 $55 1! The Potleying fields are used as output: F 
3 2184 $$9 '} COM_INPUT Routine to do input conversion of records ; 

3; 2185 230 1! COM_LENADR Routine to return length/address of record a | 
: : 1 : COM_SR Shortest allowable input record length :¢ 
: 21 gyi 4 
3: 2189 . ee a4 
3; 2190 » BT 3 4 
3 2191 § |? 2 ¢ 
: $198 1 i | 
: 5194 5 ji : 
3 2195 “9 1! 34 
318s ae t 
: 2198 “8 ji 2 | 
3; 2199 44 1! 34 


None. 
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; 2200 45 1! 
; 2201 rk 1 ! Routine Value: 
; o¢ or Ft 
: 220 48 1! Status code. 
3; 2204 49 1! 
3; 2205 » ! Side Effects: 
: §$ 1 i None 
> 2208 38 1! : 
: $593 OE is 
> 2211 36 BEGIN 
; \¢ EXTERNAL REGISTER 
: \7 28 CTX = COM_REG_CTX: REF CTX_BLOCK; 
: 2215 60 GLOBAL REGISTER 
5 18 61 CUR_PC = R_CUR PC: REF BLOCK ! PC of code we're generating 
; 17 568 BRANCH = R~BRANCH: REF VECTOR; i address of branches table 
: 2219 64 LITERAL 
: 0 265 RTN_SIZE = 128; ! Initial routine size 
; 3 : $66 LOCAL 
; g ee BRANCHES: VECTORCBR_SIZE], ! Branch addresses 
3 2224 $68 STACK, ! Stack needed for input routine 
3; 2225 70 TMP: REF VECTORC,BYTE), ! Temporary pointer to code 
3 $558 gl DISP: _VECTORCCOM_ORD_MAX+1), ' Field displacements 
3 44 378 KEY_BUFF : KEY_BLOCK; ! Space to save the key info 
: 2229 7% MACRO 
3 Hh sf? Check for writing too far 
; 2682 m $8 VERIFY_LEN(A) = 
; ; M 2278 IF .CUR_PC GTRA 
3 2234 M 79 -WetTORE cyt Coe Rout ims eae 
: 2235 : $80 -VECTORE CTXCCOM_ROUTINESJ, 1 J 
; $539 2082 RETURN SORSSERROR(SOR$_SHR_BADLOGIC) %, 
: 339 see Allocate some bytes in a field 
> 2241 M 2286 EXPAND (A,B) = 
H rH a EXPAND (XNAME ("COM_ORD_',A), B, DISPCO)) 2%; 
: 2264 
3 344 90 ' Get a local copy of the key description buffer, since we uty mung it. 
3 $78 91 ! The presence of a user-comparison routine indicates no key buffer. 
3 re 38 If we don't have one or the other, default to the whole record. 
: rk 94 if KEY_BUFFERCBASE_J NEQ 0 
: 50 95 THEN 
$ 51 39 BEGIN 
; 26 2 LOCAL *. 
> 2254 9 EN = 2+ .KEY_BUFFERCKEY_NUMBER) * KBF_K SIZE; 
> 2255 00 TF LEN GTR FACLOCATIONCKEY BUFF) THEN RETURN SORSSERROR (SORS_NUM_KEY) 
3 2256 01 CHSMOVE(.LEN, KEY_BUFFERCBASE_J, KEY_BUFFCBASE_J); 
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; 7 § END 

H ELIF 

H é ¢ -CTXCCOM_COMPARE) NEQ 0 

; 2261 86 KEY_BUFFCKEY_NUMBER] = 0 ! No key descriptions 

; 66 ELSE 

; 226 8 BEGIN 

3 2264 BIND 

3 2265 10 KBF = KEY purr tee’ _KBF(O)J: KBF_BLOCK; 

; $66 11 a purr ixey RUMBER) =" 1; ! One key 

> 226 le Pel = DScSk_DTYPE_T; / Text 

; 2268 1 KBEEK KBr ; i Ascending 

; 2269 14 KBF LKBF =PORi tion = : i Start at the beginning 
3 ssi $312 5 sof KBF-LENGTH .CTXCCOM_LRLJ; | For the Length of the record 
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Analyze the keys, et al. 
Decide whether RFA, FILE,STAB,VFC,FORM,VAR and DATA (all but KEY) fields are 
present. If present, compute the displacement to the field. 


Versions V3 (and earlier) stripped keys before passing the record to the 
key comparison routine, or returning the record from the sort. 
For competed tity. we must do the same (ugh). See SORT_MERGE for 


roronorororororervrononorororononn 


; 3 17 3 

; & 1 3 

: $578 i 

: 307 
Be : 

: 1 5 ; : 

: 5588 $ 

; 4 8 ! 3 

; Hf : 4 details on setting COM_HACK_STRIP (requests stripping). ‘ § 
$ 2287 1 i Note that this is done before we analyze the keys. Otherwise, we may not ; é 
; 43 ¢ : strip enough bytes, due to keys being dropped or shortened. ef 
; $551 4 TKS_HACK (KEY_BUFFCBASE_J); ig 
: 229 6 2 
3 st tH A -1 in the displacements table indicates field not present : ‘ 
: 2295 $339 CHSFILL(RX'FF', COM_ORD_MAX * XUPVAL, DISPLO3); 3 ¢ 
3 2296 340 DISPLCOM_ORD_MAX] ="0; 3 ¢ 
: 5598 343 i 
; 2999 38 RFA needed? ; ‘ 
: t34 g345 | We need the RFA (and possibly file number) for non-record sorts. : § 
; 2308 9347 Hf _CTXCCOM_SORT_TYPE NEQ TYP_K_RECORD 3 é 
; 2305 2349 BEGIN 32 
3; 2306 $320 EXPAND ('RFA', RABSS_RFA); 3 4 
: $307 $331 IF .CTRCCOM_NUM_FILES] GTRU 1 : 
; 309 2355 EXPAND_('FILE', 1); : 2 
3 2310 354 ND; 34 
aM BR + 
; 318 $26 1 DATA, Record Length, and VFC area needed? ; § 
: 2315 359 i We need the data portion for record sorts. 3 
; 318 309 ! We need the length for variable-length records. 34 
3 315 $0) We may also need the VFC area. 

> 2319 $8 if .CTXCCOM_SORT_TYPE) EQL TYP_K_RECORD 

| eo 

; 32 6 EXPAND ("DATA', .CTXCCOM_LRLI); lore 

3: 232 6 IF  CTRE CORBIN FC) NEQ 0 THEN EXPAND ('VFC', .CTXCCOM_MINVFC)); 

; $e 68 if oR COM_VAR] THEN EXPAND_('VAR', 2); ! A word for length 

; 0 ELSE 

; : i BEG! 

3 2329 38 i If we don't have the data, don't call user-written routines. 
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3 0 74 ! 3 
$ 1 fF IF .CTXCCOM_COMPARE) NEQ 0 OR -CTXCCOM_EQUAL] NEQ 0 : 
; : iS RETURN SORSSERROR(SORS_BAD_TYPE); ; 
; ¢ 4 END; : 
: : 80 $ 
; 3 81 Record format needed? : 
: 4 6s ; Needed if we have more than one record format. : 
: 341 85 if .CTXCCOM_FORMATS] GTRU 1 3 
3 rk $ THEN 3 
; <7 Sace EXPAND_('FORM', 1); : 
: $3ee 2389 : 
3 $48 $09 Record number needed? ; 
; 48 336 If a stable sort, use a longword to save the record number. : 
: 3390 394 If CTXCCOM_STABLE : 
; 333¢ 396 EXPAND_("STAB', 4); : 
: 334 2398 : 
3 $2? Hs Verify the keys, unless the user has his own comparison routine. : 
: $32 3401 if .CTXCCOM_COMPARE) EQL 0 : 
ee : 
: 2360 2404 3 ; 
3; 2361 2405 3 ! Loop through each key 3 
: 306 $208 3 ! 3 
; ser 3408 i wean St -KEY_BUFFCKEY_NUMBERJ-1 TO 0 DO : 
> 2365 409 4 LOCAL ; 
: 2366 2410 4 KEYLEN, ! Length of this key 3 
; $07 sei) ; KBF : REF KBF_BLOCK; ' Local copy of key ; 
: 2369 $015 4 : 
3 He Sele ? Grab a local pointer to the key description buffer : 
; are 416 4 KBF = KEY_BUFFCKEY_KBF(.1)]; : 
: 3 418 4 : 
; ie 133 ? Check the validity of the ascending/descending flag : 
; 7 4el 4 IF KBFCKBF_ORDER} GTRU 1 : 
: 2379 4 é 5 BEGIN : 
3 424 : SORSSERROR (SOR$_BAD 4 MF 3 
> 2381 425 KBFCKBF_ORDER] = .KBFCKBF_ORDER] AND NOT 1; ; 
: re ve 7 
> 2384 428 4 
; 2385 4 4 ! Check the validity of the Length 
; 2586 430 4 ! 
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87 4 IF BEGIN 
88 IF «Kor CKBF TYPE] GTRY MAX_SUPPORTED 
89 THEN ZIF NOT HOSTILE XTHEN FUN_K KANJI TEL SE FALSE a 
30 cir gKBELKBF LENGTH] GTRU .DSC_CENGTHC..KBFCKBF_TYPE) 
2 cur -DSC_FORCEC.KBFCKBF_TYPEJ] 
94 BEGIN 
4 3 UF her CKBF LENGTH EQL 0 
97 KBFCKBF_LENGTH) = .DSC_LENGTHC.KBFCKBF Type}: 
a8 -KBFCKBF_ LENGTH) EQL .DSC_CENGTHC.KBFCKBF_TYPEJ] 
400 ELSE 
401 TRUE 
40 END 
40 THEN 
404 
405 
40 BEGIN 
240 SORSSERROR(SOR$_BAD_KEY); 
408 PE) DSCSK _DTYPE_2; 
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A = 
KBF CKBF LENGTH) 
END; 
Compute the length in bytes of this key 
KEYLEN = LEN_(KBFCBASE_}); 


} Check that the key fits within the longest record length 
iF KEVLEN + .KBFCKBF_POSITION] GTR .CTXCCOM_LRLJ 
BEGIN 


i Part of the key extends past the longest record length. 
Shorten string keys, and ignore all other keys. 


if Br ee} EQL DSCSK_DTYPE_Z OR 


PAA AAASAOOMIMIMNIUIUNIUIUIVIE SELLE LLL 
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-KBFCKBF-TYPE) EQL DSCSK-DTYPE-T OR 
4 Xe KBF_TYPE) GTRU MAX_SUPPORTED 


oO 
oo 


M_LRL] - .KBFCKBF_POSITION); 
THEN KEYLEN = 0;~ ! Don't get negative 


Had 
KBFCKBF_TYPE) = DSCSK_DTYPE_7; 
Lee = 0; 


mplain about the error. 
the entire key disappeared, make it a worse error. 
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; tte a9 : Special-case a length of -1. 2 
; 123 490 IF .KBFCKBF_ LENGTH] NEQ 1*°%F IELDEXPAND(KBF_LENGTH,2)-1 OR e 
> 244 491 -KEYLEN EQL 3, 
; 2448 138 : 
3 2449 49 SORSSERR 2 
; t29 494 6 (IF SFE TLEN EQL 0 2; 
: 2451 495 THEN SOR$_KEY_LEN AND NOT STS S$M_SEV ERITY OR STSS$K_ERROR ¥ 
; 128 496 LSE SORS_KEY-LEN AND NOT STSSM_SEVERITY OR STSS$K_INFO), : 
: tt rh 4 » o1+1, SKBFCKBF LENGTH); ; 
; ¢2? rtd Store the newly computed key Length : 
: 2457 264 KBFCKBF_LENGTH] = .KEYLEN; : 
; 2458 206 4 END; : 
3; 2459 503 4 : 
; 2460 504 4 3 
: 2461 505 4 ! Determine the shortest record length that contains all keys H 
3 346 208 ? However, string keys are okay. : 
> 2464 508 4 ir -CTXCCOM_SRLJ]_ LSS .KEYLEN + peer cxer POSITION] AND : 
3; 2465 509 4 -KBFCKBF_TYPE] NEQ DSCS$K_DTYPE_T AND ; 
; 2466 510 4 -KBF CKBF “TYPE NEQ DSCSK-DTYPE-Z AND : 
3: 2467 511 4 - KBF CKBF “TYPE] LEQU MAX_SUPPORTED : 
3; 2468 $216 4 THEN ‘ 
: 2469 251 4 CTXCCOM_SRLJ = .KEYLEN + .KBFCKBF_POSITION); ; 
: 2470 2514 4 3 
3: 2471 2515 4 . ‘ 
3 ses $21$ ; For index sorts, allocate space for the original keys. : 
3 2474 $218 4 IF .CTXCCOM_SORT_TYPE] EQL TYP_K_INDEX ; 
3: 2475 2519 4 THEN ‘ 
3: 2476 S250 4 EXPAND_("OKEY', .KEYLEN); : 
3: 2477 2521 4 F 
3; 2478 $25§ 4 : 
3 24679 2525 4 ' aay pa keys to a normalized form; namely, the signed or F 
; 2480 2524 4&4 ' uns sgned 9 eyte geyivelents with the appropriate length; change F 
3 ret $252 ; datatype T if there is no collating sequence. : 
3 “88 2527 & IF or coer TYPE] EQL DSCS$K_DTYPE_T AND : 
; tee $258 ? CTXCCOM_COLLATE) EQL 07 : 
3 2486 3 4 KEL BF -TYPE] = DSCSK_DTYPE 7 : 
3 . 7 33) ? if © ol KBF-TYPE) EQL DSCSK OT YPE: _l : 
3 2489 338 : ENBEGIN : 
: rs 230 2 Hd -KBFCKBF_LENGTH] EQL 1 THEN KBFCKBF_TYPE] = DSC$K_DTYPE_BU; : 
3: 249 239 4 ELIF .KBFCKBF_TYPE] GTRU MAX_SUPPORTED : 
3: 249 5 4 THEN : 
: 2494 538 4 0 3 
3 2495 539 4 ELIF .DSC_BINARYC.KBFCKBF_TYPE]) : 
: 24 540 4 THEN 3 
3 249 541 : BEGIN 3 
3: 2498 P 246 IF ONEOF (. Pk a TYP }. BMSK_(DSCSK_DTYPE BU, DSCSK_DTYPE_WuU, 3 
+ 2499 54 é DSC$ Ly; TDSC$K_DTYPE-QU,DSCSK_DTYPE_Ou)) ; 
; 2500 544 THEN RB ERBF YAYPE = DSCSK_DTYPE_BU ; 
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; 1 45 5 ELSE KBFCKBF_TYPE] = DSCSK_DTYPE_B; 

$ § “3 4 END; 

te 3 END; 

a ie 

: 4 : : Try to do some key compression. 

; H : KEY_COMPRESS(KEY_BUFFCBASE_]); 

: 251 

: ae 228 : Initialize code descriptor, and the current PC 
: 2516 3560 VECTORE CTXCCOM_ROUTINES], 0 ] = 0; 

3; 2517 561 2 VECTOR ate COM_ROUTINESJ, 4 = CUR_PC = 0; 
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19 ' 
' 
Generate the input conversion routine 
ie 
4 
: 
! Note: The conversion routine is not entered here. 
If we need converted keys, we will branch back here to convert them 
4 
4 
4 
4 
4 
4 
4 
4 
4 


Save offset from beginning of the code of the current address 
TMP = .CUR_PC = .CTXCS_START); 


No stack space needed yet 
STACK = 0; 


! Because we are ys ing GEN_MOVE (et al), we must assert that the input 
ft) 


conversion routine does not preserve registers RO..R5 or R6 (the length). 


ASSERT_((%B'1111111" AND NOT ZNOPRESERVE(JSB_INPUT)) EQL 0) 


Check whether the user is doing his own comparisons 
if .CTXCCOM_COMPARE) EQL 0 
THEN 

BEGIN 

i Loop through, and convert keys as needed 
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Note that we may expand COM_ORD_KEY. This is og we've not yet 


generated code to reference any of the other COM_ xxx fields. 
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[FP cecmcace 
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an 


PIPIPIPIPOPIPIPIPIPIPINININININININIPIDPIPIPYIPINPINIPININPIAIPIPININPINPIPINPININININPIPNIP 


POPOPOPOPIPIPONPPONOPPONoNNoNoNoNofefnofrofnonyd 


CAL 
OKECNT, ! Byte count of original keys 
CVTCNT; ! Byte count of converted keys 


OKECNT = 0; 


WI 


CVTCNT = 0: 
INCR I FROR 0 TO .KEY_BUFFCKEY_NUMBERJ-1 DO 


BUSA 


LOCAL 
KBF : REF KBF_BLOCK; ! Local copy of key 


KBF = KEY_BUFFCKEY_KBF(.1)]; ! Pointer to key description 
| 


FU SUSUSUSISIS 
No 


ed 
MEuwn—O0 


! For index sorts, copy the original keys. 
' Note that the OKEY area has already been allocated. 
!' Since the KEY area may be expanded later for converted keys, 
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: 16 $19 : we require that the OKEY area not be moved (OKEY LSS KEY). 

: 257 e5) if .CTXCCOM_SORT_TYPE] EQL TYP_K_INDEX 

; £8 4 : : THEN EGIN 

; 6h ASSERT _(COM_ORD_OKEY LSS COM_ORD_KEY) 

: 6 KEYL ! Length in bytes of the k 
$59 KEYLEN © CEN. (KBFCBASE_1); ° , hag 
; 5 628 ROOM(K_MOVE) > 

; 86 629 GEN "MOVE VARt k 

; 44 630 K F POSITION] COM_REG_SRC1, 

: $268 1 “DISPLCOR -ORD_OKEYS+.OKECNT; COM_REG_SRC2); 

: 2590 6 i ! Indicate that the key location is relative to the 

: 23) ? : beginning of the internal format record. 

; 338 ? § ; at Be POS Sit 100) ie: -DISPCCOM_ORD_OKEY]+.OKECNT; 

: 2595 638 OKECNT = .OKECNT + .KEYLEN; 

; 59 639 é + = “ EC EYLE 

: 2598 641 4 XIF NOT HOSTILE %THEN 

; vet eis ? If a user-defined key, convert it as needed. 

; $60 645 4 if ;KBFCKBF_TYPE] GTRU MAX, SUPPORTED 

a. se Ei aee 

> 2605 648 5 EKPAND._ Say 32 0); Boke ee the key area is  gitesated 
; 2649 5 CVTCNT~= .CVTCNT ¢ Generate code and add t ength 

: reid o20 ? GEN_ CONVERT TUDEF (KBFEBASE™ 6. -DISPCCOM_ORD oxEv)+" CVTCNT); 
a eS ot 

> 2611 654 4 ! If a decimal Sototyee (other than packed), 

: oie $022 2 or G,H_floating with no hardware support, then convert the key. 
> 2614 p 5689 iF ONEOF (KBE CKBE _TYPE), BMSK 

3 2615 P 2658 4 DSCS$R_DTYPE DSC$K BTIPE. NZ, DSCSK_DTYPE_NL 

; 616 659 5 DSCSK-DTYPE “NLO, DSCSR_DTYPE_NR, DSC$R_DTYPE_NRO)) 

588 cel THEN EGIN, 

: 2619 O36 EXPAND _('KEY', 0); } Make sure the key ange is allocated 
; 2620 66 CVTCNT~= .CVTENT ¢ Generate code and a Re len nat th 

: 2621 664 REN. CONVERT DEC (KBFBASE” , -DISPCCOM_ ORD “rey +. CVICNT, 

: ri § 665 END STACK); 

> 2624 $6F ELIF 

3; 2625 P O88 4 ONE OF £ kOe Leer Sgt: BMSK (DSCSK_DTYPE_F, DSCSK_DTYPE_D, 

> 26 6 66 4 DSC$K_DTY DSC$K_DTYPE_H)) ~AND 

3; 26 670 4 NOT FDBGH YHARDUARE. (. RBFLKBF TYPE) 

: $56 $52 THEN BEGIN 

: 26 o76 EXPAND_ Ng 0); none sure the key aces is , be Located 
: 631 674 CVTCNT~= .CVTCNT + rate code and a to Le nth 

; 2632 675 GEN. CONVERT TELTCKBFCBASE. - »DISPLCOM “ORD” “Rey +. CVICNT); 
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: 3 i 4 oe END; 
: 2635 7 : 
; 26 $ 67 
$ 4 Save the other keys, unless we have them in the DATA area. 
: 2639 6 ¢ if .DISPCCOM_ORD_DATA] LSS 0 ! If we aren't saving data, 
; 2640 6 THEN ! then we'd better save keys 
: 2641 684 4 BEGIN 
3 org 685 4 EXPAND_('KEY', 0); ! Make sure the key area is allocated 
> 264 686 4 CVTCNT~= .CVTENT + MOVE_KEYS( 
3 2644 ? 4 KEY pie BASE_ ' Key descriptions 
; sig 6 é 4 : .DISPCCOM_ORD-KEY]+.CVTCNT); i Displacement 
> 264 690 : 
3; 2648 691 
: veh 24 Round up stack requirements 
: 3H 694 STACK = ROUND_(.STACK); 
> 265 69 
3; 2654 69 ! If any keys were converted, actually allocate the space, and 
; 22? 228 } issue a return, since we'll be coming back this way. 
; at eee IF ;,D1SPCCOM_ORD_KEY GEQ 0 OR .DISPCCOM_ORD_OKEY] GEQ 0 
: 2659 702 4 BEGIN 
; 2660 703 4 EXPAND _("KEY', .CVTCNT); 
: 2661 704 4 ROOM(17K_LITE+1+4); 
; O66 re 2 IF .STACR NEQ 0 
> 2664 70 EGIN 
3; 2665 708 EMIT _BYTE(OPC_ADDL2); 
; 666 709 EMIT“LITE(K_LONG, .STACK); 
: 667 210 ; ENIT_BYTE(H_R#R_ SP) 
: v4 ar 4 EMIT BYTES (OPC_MOVL, 1, M_R+R_0, OPC_RSB); ! Return success 
; sre ar END; 
: 267 71 
3; 2674 nS ! This is where we want to enter the conversion routine. 
; of? at For now, just store the offset from the beginning of the string. 
: e f : CTXCCOM_INPUT] = .CUR_PC - .CTXCS_START); 
> 267 7 
3 7 5 ! If there is a record definition table, call SORSSRDT to determine whether 
3 1 f : to omit or include this record. 
: : 726 Z1F NOT HOSTILE ZTHEN 
; 7 IF .CTXCCOM_RDT_ADR) NEQ 0 
3 5 7 8 THE 
; 7 BEGIN 
; 730 ROOM(7+K_ABSA+7+4+K_LITE+1+#K_DISP); 
; P 2731 EMIT_BYTES( 
: 2689 P 2732 OPC_PUSHAL, M_AD+R_SP, ! PUSHAL =(SP) 
| 
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: 2690 P 2733 OPC_PUSHAB, M_RD+COM_REG_SRC1, ' PUSHA (Rsrc1) 

: 2691 734 OPC“CALLS, 2)? 

: 269 735 EMIT_ABSA(SORSSADf); ' CALLS #2, SORSRDT 
> 269 P 27 g EMIT “BYTES ( 

3 2694 P 27 OPC_MOVL, M_AI+R_SP, M_R+R_1, ! MOVL (SP) + R1 

: 2695 P 27 : OPC“BLBS, M~R+R_0, ff, i BLBS RO, 1§ 

: 26 7 OPC“RSB): B 

3; 269 C 2740 x( 

; 698 c rai IF ,DISPCCOM_ ORD_FORM] GEQ 0 

eH REL aot tt sp son in 

: e7 2 C 2745 EMIT_BYTES(OPC_DIVL2 ONI OPC_SUBB3); 

> 270 C 246 EMIT“LITE(K_BYTE +E EXECOR NOT * ADRI/ROT “UNITS; 

3 2704 C 274 EMIT-BYTE(M-R+R 1); 

: 2705 C 2748 EMIT-DISP(.BISPCCOM_ORD_FORM], COM_REG_SRC2); 

; 206 € 2749 END; 

: 270 750 3% 

: 2708 751 END; 

: 2709 138 “FI 

gmp 

: at; ree Store the length, if needed 

> 2714 29 If .DISPCCOM_ORD_VAR] GEQ 0 

: Ste Fa9 THEN SE GIN 

: 2717 760 ROOM(1#K_LITE#1#K_DISP); 

3 218 76 IF CTXCCOM_ TK TKS] REQ 0 

: 720 763 4 BEGIN 

: 2721 764 4 EMIT_BYTE(OPC_S ' SUBW3 

: , é 765 4 EMITILITE (K K WORD. M3 ExCCOM. TkS)); i tks 
> 2726 767 3 ELSE 

> 2725 768 4 BEGIN 

; 37ee 769 4 EMIT _ BYTE (OPC_MOVW); ' MOVW 

; ish 771 EMIT_BYTE(M_RD+COM_REG_SRC1) (Rsrcl) 
> 2729 77 EMIT~DISP(.BISPCCOM_ORD_ VARI. COM_REG_SRC2); i n(Rsrc2) 
3: 27 77 END;~ 

7 

; g : As Store the original data, if needed. 

; u 5 ad If ,DISPCCOM_ ORD_DATA] GEQ 0 

: 27 780 BEGIN 

: 27 8 781 ROOM(MAX(4+K_MOVE ,4+K_LITE+K_LITE+K_DISP)); 

: 138 4 ; IF ,DISPLCOM_ ORD_VARJ“LSS 0 

; 741 ? 4 4 BEGIN 

: 748 . § 2 Special-case fixed-length records 

+ 2765 788 & Emit BYTES (OPC MOVL BD+COR_ REG_SRC1, 4, M_R#R_1); 

; 2746 789 4 GEN_MOVE(.CTXCTOM_LALJ T #length 


voe-000- essere OU: 98:E) MGT AMesedz tetas. ae P 
! 


> 2747 790 4 0, 1 OCR 
; 13 131 4 a .BISPLCOM_ORD_DATA], COM_REG_SRC2); i Se isp(rsre2) 
: e7 £38 4 ELSE 
: 2751 794 % BEGIN 
: ev g P 2795 4 EMIT BYTES(OPC_MOVCS ' MOVCS 
; 7 P 196 4 A_RD+COM_REG SRC{ i (Rsrct) 
: 2754 797 4 M~BDD+COM_REG_SRC1,4); i a4(Rsref), 
: 2755 798 4 EMIT_CITE(K_BYTE, “fT aEEOR. PAD)); i pad 
: 27 5 799 4 EMIT-LITE(K-WORD, .CTXCCOM“LRLJ); i #length 
: 27 00 4 EMIT~DISP( 
: 2? 8 4 & ~DISPCCOM_ORD_DATA], COM_REG_SRC2); : src2disp(Rsrc2) 
: 27 § END; 
ee a 
: 276 05 ! Store the record number for stable sorts. 
Py ; tore the stream number for stable merges. 

163 80 is h ber f bl 
; 165 808 IF, ,DISPCCOM_ORD_STABJ GEQ 0 
; 75 810 BEGIN 
: 2768 811 ROOM(14#K_DISP+k ISP) 
: 2769 Big EMIT_BYTE(OPC_ : ' MOVL 
> 2770 81 EMIT~DISP( i m(CTX) 
> 2771 B14 4 TIF .CTXCCOM_MERGE) 
: 277 B15 4 THEN EF TELDERPAND (Con. NRG. STREAM, 0) *ZUPVAL 
> 277 816 ELSE FIELD DEXPAN (COM~ INP-RECNUM 0) sZUPVAL), COM. REG_ 1X): 
: 2774 81 EMIT_DISP(.DISPLCOM_ ORD. STAB]; COM_REG_SRC2 nCRsrc2) 
: 2775 818 : 
: sft £20 
3 ! we need the » copy it too 

178 8 1 ‘if d the RFA i 
; 2780 8 § If _,D1SPCCOM_ORD_RFA GEQ 0 
: are 825 BEGIN 
: 278 836 MACRO 0_(0,P,S,£) = 0% 
+ 2784 8 ASSERT_TRABSS RF FA EQL 65 
> 2785 8 8 ROOM(14K_DISP?K_LITE+3+#K_DISP+2+K_DISP); 
: 27 8 EMIT_BYTE(OPC_ADDL3); ' ADDL3 
: 27 830 EMIT~DISP( i mm(CTX) 
: 27 831 ZF IELDEXPAND(COM_INP_CURR, 0) *ZUPVAL ,COM_REG_ CTX); 
> 2789 8 é EMIT -LITECK LONG : 9°68 _RAB+0_(RABSW_RFA)S; #offset 
; 730 Pp 8 EMIT~BYTES(A__ RO 
: 279 OPC_MOVL; nays MOVL (RO)+ 
: 279 5 emir B1Smr pL sttcom ORD, RFA], COM_REG_SRC2);  ! nn(Rsrc2) 
> 279 6 EMIT~BYTES(OPC_MOVW p+R 6); i mov 
: 794 EMIT DISP(. DISPCCOM, ORD. RFAJ+4,COM_REG_SRC2); ! nn+4(Rsrc2) 
: 196 § i If the file number is needed, get it, too 
4B i? : 
: 198 4 if ,D1SPCCOM_ORD_FILEJ GEQ 0 
: rk 4 BEGIN 
: 1 44 6 ROOM(1#K_DISP+K_DISP); 
: : 5 4 EMIT BYTE (OPC MOVB) ; 
: 46 4 EMIT~DISP( RF JELDEXPAND(DDB_FIL,0) 
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“both BSW. RFA) 
EMIT. m4 Ret Dispccom. ORD_FILE], COM_REG_SRC2); 
END; 
! If the VFC area (record header dutter. RHB) is needed, get it, too. 
! Note that the VFC area, Like the RFA, is passed through the context area. 
i On the chance that the code later decides to not allocate the VFC area, 
check whether the address of the storage is zero. 
IF -DISPCCOM_ORD_VFC] GEQ 0 
BEGIN 
LOCAL 
TMP2: REF ALF BYTE); ! Temporary pointer to code 
ROOM(14+K_DISP+3+ 
EMIT_BYTE(OPC_MOV chs ! MOVL 
EMIT BT SE (GF {EC DERPAND (COM_RHB_INP, 0) *XUPVAL. mm (CTX) 
TOM_REG_CTX); 
EMIT _BYTES(A_R+R_0, ! RO 
OPC -BEQL 0); ' BEQL O$ 
2 = [CUR 47 i Save PC 
GEN =Move cTx fom _MINVFC], 0, R_0 i MOVE #len, O(RO) 
SPECON D-VFC) phOm_REG_SRC2):; i nn(Rsrc2) 
tweet 1 COR. Be - tm ' Correct displacement 


If we need to convert keys, branch back and convert them 


ROOM 19K, ptoy tag 


+ wagltss RT); 3 actual address 


TMP to be 
IF (. ybisPtc Ev] Gea 0'OR ,D1spCCOh sono OKEY) GEQ 0) 
PUIRPL OND” NEG (OPC_MOVL + 1°8 + (A_R+ nO) “16 + OPC_RSB*24) 
EN REGIN 
LOCAL 
IF Stack NEQ 0 
THEN 
BEGIN ' Allocate eyoeh space 
EMIT_BYTE (OPC pouete? ' SUBL 
EMIT“LITE(K_LON STACK): i #stack 
EMIT~BYTE (M_R+R_ Ceoss i SP 
END; 
EMIT BYTES( 
OPC fovw, M_RD+COM_REG_SRC1, M_R+R_6, mov (Rsrcl), R6 
M_BD+COM REG SACI, 4, i 4(Rsrcl), 
MER*COM_REG SRC1); i Rsrcl 
27 = TAP .COR Roe - 3; ' Branch displacenent 
IF .2<0,8,1> OL 72 i Will BRB suffice? 
THEN (EMI_BYTE(OPC_BRB); EMIT_BYTE(.7+1)) 
ELSE (EMIT“BYTE(OPC~BRW); EMIT“WORD(.2)); 
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ity 308 ELse. 

; § P 29 EMIT BYTES OPC -MOVL, 1, M_R+R_0, ! MOVL #1, RO 

: ¢ 3 OPC_RSB); ! RSB 

; 309 VERIFY_LEN(); ! Check for writing too far 
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| Generate the key comparison routine 


Store the offset from the beginning of the string. 
-CTXCS_STARTI; 

Initialize the branches table. 

CHSFILL(RX'FF', 
BRANCH = BRANCHESL 


} We haven't saved any registers yet. 
SAVED_REGS = 0; 


If the user supplied a comparison routine, call it. 
I oh -CTXCCOM_COMPARE] NEQ 0 


ere aetkicom COMPARE]. DISPLO)); 


PECOM_ ORD_STAB) G 


yew? 
EMIT_BYTES(OPC BLBC, M_R+R_0, 1, 
oPt_RSB 


SE 
EMIT_BYTE(OPC_RSB); 


INCR I FROM 0 TO .KEY_BUFFCKEY_NUMBERJ-1 DO 
BEGIN 


Hh a 
Y_BUFF 


BEGIN 
Th 


: Adjust the offset to the key. 
KBE [KBF POSITION} = .KBFCKBF_POSITION] + 
GEN_ COMPARE (KBFCBASE_1, 1D; 


1e$ep=1986 13:40 


4 Pithaedegianasaete BRANCHESCOJ); 


REF KBF BLOCK; 
CKEY 
BREKBF. 


key has not been converted. 


AX=-1 


-3 
SORTS2.SRC SoRKey 


! Stable? 
' BLBC RO, 1$ 
! RSB 


! RSB 


-DISPCCOM_ORD_DATA); 
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: 2925 967 

3; 29 8 443 

: : 4 39 Generate a Little more code for stable sorts 

: 2929 359 if .DISPCCOM_ORD_STAB] GEQ 0 

; 2950 af6 THEN 

§ 2 1 a7 BEGIN 

: § 3°? Generate another comparison for stable sorts 

: $085 $7) we 

; 9 : 358 KBFCKBF_TYPE] = DSesk _DTYPE_BU; 

3 $3 8 980 KBFCKBF_ORDER] = 0; 

; 939 981 KBF LKBF ot penton = A} ph tega ORD_STABI; 

3; 2940 oB6 KBF 4 “LENGTH = LuPVA 

3: 2941 98 GEN_ COMPARE (KBF CBASE by: 

3 at§ 984 END; 

: 294 985 

: soee 986 

3 Sota + H4 Store the length of an internal-format record 

: 2947 989 CTXCCOM_LRL_INT) = .DISPCCOM_ORD_MAX); 

; See 44! vere COR_ ORD_MAX) GTR MAX REFSIZE- 

; 2950 998 SORSSERROR(SOR$_SHR_BADLOGIC); ! Not really bad logic, just rare. 
: 9%¢ 2994 

; $227 344) Generate code to return a zero, and process saved registers 
: Sge¢ 997 3 H 00M(5 

3 2956 2998 EMIT Bytes copc. CLRL, M_R+R_0 CLRL RO 
> 2957 999 IF .SAVED_REGS NEQ 0 TREN enti _BYTES (OPC _POPR, . SAVED_REGS); 
3; 2958 000 EMIT *BYTETOPC RSB); RSB 

3; 2959 001 

; 2960 00 

3 $90) st Store the offset to the start of this routine 

> 296 005 CTXCCOM_COMPARE] = .TMP; 

3: 2964 B06 

: 2965 00 

: 2966 008 ! Check for writing too far 

3 sper 3009 ! 

3 2968 3010 VERIFY_LEN(); 
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: 2970 11 + 

3; 2971 \¢ \ 

: ais 1 ! Generate the equal-key routine 

: 297 14 ! 

3: 2974 015 l- 

; 1 818 } Store the offset from the beginning of the string. 

; $i O18 TMP = .CUR_PC = .CTXCS_STARTI; 

: 2979 020 

3 Ont 021 If the user specified his own equal-key routine, call it. 

: 3B¢ g if .CTXCCOM_EQUAL] NEQ 0 

; oR 8 ¢ THEN, GIN 

> 2985 0 6 ROOM(K_CALL4+9+K_LITE+2+K_ABSA+4) ; 

3; 2986 0 EMIT_CALL4(.CTXCCOM_EQUALT, DISPLO}); 

3 st ; 8 3 sabe 2 by $” BLBC, M_R+R_O, 1, BLBC RO, error 
> 2989 P $86 OPC"PUSHL, M_R+R_0, i error: PUSHL RO 
3; 2990 P 3031 OPC_PUSHL, 0, ! Pus 

b4 2391 O36 OPC_PUSHL); ! PUSHL #SOR$_RTNERROR 
; 99¢ 03 EMIT_LITE(K-LONG, SOR$_RTNERROR); 

3 299 034 EMIT-BYTES(OPC_CA 3); ! CALLS 

3 2994 035 EMIT_ABSA(SORS$SERROR) ; ! SORSSERROR 
3 2995 P 036 EMITIBYTES(OPC_MOVL, SS$_NORMAL, M_R+R_0, i MOVL #SS$_NORMAL, RO 
3 2996 03 OPC_RSB); i RSB 

3: 2997 038 END 

; 238 3040 tt -CTXCCOM_NODUPSJ 

: 3000 041 BEGIN 

; 3001 3008 EMIT_BYTES(OPC_MOVL, M_AI+R_PC); ' MOVL 

; 300¢ 304 EMIT~LONG(SORS~DELETE2); i #SORS$_DELETE2 
; 300 P 3044 EMIT-BYTES(M_R#R_O, i RO 

3 3004 045 OPC_RSB); i RsB 

; $08 be9 eusee™ 

: 3007 048 BEGIN 

3 8 049 ! 

5 $09 050 ! Emit a HALT instruction. 

; Big bes This indicates that COM_EQUAL should be set to zero below. 

; a8 it EMIT BYTE COPC_HALT) ; 

: 3014 55 . 

: 3015 O28 

: O19 b2 : Store the offset to the start of this routine 

; aig 039 CTXCCOM_EQUALJ = TMP; 

: 3020 1 

: 3021 Oee ! Check for writing too far 

:; 30 § ‘#9 ! 

: 30 4 VERIFY_LENQ); 
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3 \ : Oeg 

3 8 f Oey ! Generate the length-address routine 

: 3029 0 ie 

$ 8 : 076 Store the offset to this routine 

; 30 ¢ Ore CTXCCOM_LENADR] = .CUR_PC - -CTXCS_STARTI; 

; 8 4 $33 

; 3035 075 ! If the VFC area (record header buffer, RHB) is needed, get it. 

; 30 o7¢ Note that the VFC area is passed through the context area. 

; 3038 878 IF _ .DISPCCOM_ORD_VFCJ GEQ 0 

; 3039 07 THEN 

3; 3040 080 EGIN 

: 3041 081 OCAL 

: toeg bas TMP2: REF VECTORC,BYTE); ! Temporary pointer to code 
; 304 08 ROOM(14K_DISP+1+2+8+K_MOVE+1); 

3 35044 084 EMIT_BYTE (OPC MOVL); ' MOVL 

3 3045 3085 EMIT DISP(XF IELDEXPAND (COM_RHB_OUT,0) *%UPVAL, ! mm( CTX) 

; $008 $059 TOM REG_CTX); 

: 3047 08 EMIT_BYTE(M-R+R_0); ! RO 

3 $008 088 EMIT_BYTES(OPC_BEQL, 0); ' BEQL 4$ 

: 3049 089 TMP2 = .CUR_PC; 

; 3050 090 

3 She) 091 : If any of RO..R5 are ZNOTUSED, call a routine to do the move. 

3 p26 84 If any of RO..R5 are XPRESERVE, save and restore the registers. 
H 3082 094 IF_.CTXCCOM_MINVFC] GTRU TUN_K_BINMOVE 

: 3055 095 THEN 

3; 3056 L 3096 RIF (%8°111111" AND ZNOTUSED(JSB_LENADR)) NEQ 0 

; 3057 add XTHEN 

; 3058 098 4 BEGIN 

; 3059 P 3099 4 EMIT _BYTES(OPC_CALLS, 0, M_BD+R_PC, 2, ! CALLS #0, 2(PC) 
3; 3060 P 3100 4 OPC_BRB, 0; ' BRB 4$ 

: 3061 P 3101 4 %8°T11141' i ,WORD “M<mask> 
3 beg 108 4 AND (ZNOTUSED(JSB_LENADR) OR ZXPRESERVE(JSB_LENADR)), 0); 
; 306 103 4 TMP = .CUR_PC = 2; 

3: 3064 104 4 EN 

: pee : 132 2 ZELSE ZIF (%8'111111" AND ZPRESERVE(JSB_LENADR)) NEQ 0 

F 3009 U 109 4 EMIT_BYTES(OPC_PUSHR, %B'111111° AND ZPRESERVE(JSB_LENADR) ) 
: 3068 U 198 4 ZELS 

; 3069 U 31 4 

; 3070 110 SFI 2FI; 

3; 3071 111 

: O58 Ng GEN_MOVE (. CTXCCOM_MINVFCJ ' MOVE #len, 

3: 307 11 DISPECOM_ORD_VFCJ, €OM_REG_SRC2, ! nn(Rsrc2) 
; O74 114 0, R_0); 0(RO) 

; Or 118 IF gC TXCCOM_MINVE C3 GTRU TUN_K_BINMOVE 

: ore L 118 ZIF (%B°111111" AND ZNOTUSED(JSB_LENADR)) NEQ 0 

3; 307 11 XTHEN 

3 120 4 

3 121 4 


BEGIN 
EMIT_BYTE(OPC_RET); ! RET 
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pee TMPC=1) = .CUR_PC = .TMP; '4$: 
: 2 u its IF (%8°111111" AND ZPRESERVE(JSB_LENADR)) NEQ 0 
B38 U EMIT_BYTES(OPC_POPR, %B°111111" AND XPRESERVE(JSB_LENADR) ) 
8 U ZELS 
O89 : af $F 
090 . 
091 TMP2C=1] = .CUR_PC = .TMP2; 
09 END; 
094 
095 
4 Generate code to move the length/address into RO/R1 
$096 | Set the longest output record Length. 
3100 4 ROOM (MAX ( ! Make room for the code 
0 1#MAX(K_DISP,K_LITE)+2+K_DISP+2, ' RECORD 
0 1+K_DISP+2+k_ABSA+1, ' TAG 
0 4+K-D1SP+2, i ADDRESS 
4 1+K Lie +K_DISP+2)); ' INDEX 
4 CASE CTX COM_SORT_TYPE] FROM TYP_K_RECORD TO TYP_K_MAX OF 


CTYP_K RECORD]: 
BE 


CTXCCOM_LRL_OUT] = .CTXCCOM_LRLIJ-.CTXCCOM_TKS]; 
EMIT BYTE (OPC_MOVZWL) ; 
IF_.BISPCCOM_ORD_VAR] GEQ 0 


EMIT_DISP(.DISPCCOM_ORD_VAR], COM_REG_SRC2) 


EMIT LITE(K WORD, .CTXCCOM_LRL_OUT)); 
EMIT_BYTES(M_R+R_0, OPC_MOVAB); 
EMIT~DISP(.DISPLCOM_ORD-DATAJ+.CTXCCOM_TKSJ, COM_REG_SRC2); 
EMIT BYTES(M_R*R_ 1, OPC_RSB) 


RIF NOT HOSTILE %THEN 


CTYP_K_TAG): 
BEGIN 
CTX = .CTXCCOM_LRLI; 
a HAB) ; ! PUSHAB 
OM_ORD_RFAJ, COM_REG_SRC2); ! rfa(Rsrcl) 
LLS, 13; ‘CALLS #1 
A-ACCESS) ; : a SORSSRFA_ACCESS 


oO 


—OOow 
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I 
] 
IT, 
I 
IT"BY 
D; 


DDRESS): 
N 


A 
it 
XCCOM_LRL_OUT] = RABSS_RFA; 
<DISPECOR_ORD_F ILE GEQ 0 


CtTyP 


WAIAAAIA AIA AA AIA AANA AIA AIAI AIA WIAA AINA AWWW AAI AIAINANAIN NIAAA AA AAA AAA 


me ee ee ee a a a a ed ed dd od od od = = 8 = = 8 od 8 3 


ANN SAAAAAO 


WANA IPINIWINN NIAID PIP NID HANA ANIA AAUP PIPIPIPINPIPUDIPIPINPIPINIPINIW NWA BELL LEE 


ee ec ce ce ee ee ee ae ec ee ee ee ee ed ed ed ed ed od dd dd od dd od dD 


WINIWININI WI WINI WI AI WI ANAAAAAWNNWANANNANAA 


BOSVSUS 


' Make sure there is : free byte following the last one we executed. 
This avoids a 11/750 problem if the next byte is not readable. 
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y00 000 12-8 08- 1 3be 9: bias SORT32.SRC SoaKe yon 68251 . (30) 
; 3139 173 CTXCCOM_LRL_OUT] = .CTXCCOM_LRL_OUT) + 1; 
; 3140 1 ASSERT (COM ORD-RFA+1 EQL COM_ORD_FILE) 
: 3141 181 EMIT _BYTE(OPC_MOVL); 
3 136 1 ¢ ASSERT_(RABSS_RFA+1 LEQ _e 
: 314 1 EMIT_BYTE(.CTRCCOM_LRL_OUT)); 
3; 3144 P 3184 EMIT_BYTES(M_R+R_O, 
: 3145 185 OPC_MOVAB); 
: 138 1 § EMIT_DISP(.DISPCCOM_ORD_RFAI, COM_REG_SRC2); 
: 314 1 EMIT_BYTES(M_R+R_1, OPC_RSB); 
; 3148 188 END; 
; 3149 189 
: 138 190 CTYP_K_INDEX] 
; 3151 191 BEGIN 
3 136 138 LOCAL 
3; 315 19 3 ! A temporary 
; 3154 194 ! 
3 3155 195 ! The gnly fields we should output are: 
; 3156 196 ! RFA, FILE, OKEY, in that order. 
; 3157 197 ! The | other fields we may have in the internal record are: 
3 138 Ps KEY, STABLE 
; 3160 $00 ASSERT_(COM_ORD_RFA_ LSS COM_ORD_FILE) 
: 161 201 ASSERT (COM~ORD_FILE LSS COM_ORD-OKEY) 
s 188 $8 ' Assert that neither the KEY or STABLE fields 
3 19 soe are between the RFA and OKEY fields. 
; 3166 206 ASSERT_((COM_ORD_KEY =COM_ORD_RFA) GTRU (COM_ORD_OKEY-COM_ORD_RFA)) 
; 3167 207 ASSERT_((COM_ORD_STAB=COM_ORD-RFA) GTRU (COM ORD_OKEY~COM_ORD_RFA)) 
3 3192 3209 ! Find the displacement of the first field after COM_ORD_OKEY. 
3 10 $i9 } We will find something, since DISPCCOM_ORD_MAX] is geq 0. 
; 76 3212 INCR I FROM COM_ORD_OKEY+1 TO COM_ORD_MAX DO 
3; 317 21 IF (Z = spisPl.T ) GEQ 0 THEN EXITLOOP; 
3; 3174 214 CTXCCOM_LRL_OUTJ = .2Z = .DISPCCOM_ORD_RFAI; 
; 3175 215 EMIT_BYTE (OPC MOVZWL); 
; 3176 216 EMIT_LITE(K WORD, -CTXCCOM_LRL_OUT)); 
3; 3177 P 3217 EMIT-BYTES(A_R+R_0, 
; 3178 218 OPC_MOVAB) ; 
; 3179 219 EMIT_DISP(.DISPCCOM_ORD_RFA), COM_REG_SRC2); 
; 3180 220 EMIT—BYTES(M_R+R_1, OPC_RSB); 
3 Hy 221 END; 
: 3188 y 3558 1ELSE 
; is U § 4 
; 3185 U 5 CINRANGE ,OUTRANGE): 
3 136 u $ RETURN SORSSERROR(SOR$_SHR_BADLOGIC); 
3; 31 8 zFI 
; 3189 9 
3; 31 0 TES; 
: 4 1 
3198 g 
: 35194 4 
; 3195 5 
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Check for writing too far 
VERIFY_LEN(); 
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! Is the COM_EQUAL routine really needed? 
F CHERCHAR(. CTRECOR_EQUALJ) EQL OPC_HALT 
CTXCCOM_EQUAL] = 0; 


-Sep-1984 SORT32.SRCJSORKEYSUB. ! 2;1 (31) 
Adjust the entry points to the generated routines. 
CTXCCOM_INPUT) = .CTXCCOM_INPUT) -CTXCS_START]; 
CTXCCOM_ COMPARE) = CTX COM- COMPARE) : -CTXES"STARTI; 
CTXCCOM-EQUAL J = .CTXEC AL + .CTXES_STARTJ; 
CTXCCOM_LENADRJ = .CTXCCOM_LENADR) + .CTXES~ _STARTI; 
i 


ZIF XSWITCHES(DEBUG) 
ZTHEN 
BEGIN 
EXTERNAL ROUTINE 
SORSSOUTPUT; 
DES UPLIT(ZCHARCOUNT(A), UPLIT BYTE(A)) 2%; 
som (ZSTRING( 
routine input, !_!XL=!XL!/', 
‘routine compare, |— 'XL=!XLI/', 
‘routine equal, !~!XL=!xL!/' 
‘routine Lena dr i “ixceixcis's), 
-CTXCCOM_ Lalit -CTXCCOM_ COMPARE ]~ -1, 
>CTXCCOM ARE, -CTXCCOM~EQUAL J=1 
CTX COMTEQUA -CTXECOM~ ~FENADRI- -{, 
-CTXCCOM_ TD 
vec teeE arabe OM -ROUTINES}., 0 iz 
ne -VECTOREC CTXCCOM_ROUTINES - 1); 
ee 
! Execute an REI instruction to Suerentes that instruction prefetch gets 
the instructions we've just written. 
DO_REI(); 
RETURN SS$_NORMAL; 
END; 
43 2C 15 00 OOC7E P.AAH: .BYTE 0, 21, 44, 67 3 
07FC 00000 -ENTRY SORSSKEY_SUB, Save R2,R3,R4,R5,R6,R7,R8B,R9,-; 2188 


5 F79C «CCE C9 9002 MOVAB =2148(SP) ; 
06 AC p 000 MOVL KEY_BUFFER, SR3 > 2294 
2 BEQL 2 3 
i 36 MOV yL (R3), R2 ; 2299 
CO 0001 its Ag LEN : 


H 7 
SORSKEY_SUB 16-Sep-1984 00:29:5 AX-11 Bliss-32 V4.0-74 Page 94 S 
y04.000 19-88-1382 90: 482 SORT32.SRCJSORKEYSUB.B32;1 9° 031) vo. 
QOO007FA BF 16 CMPL N, #2042 : si 
g rt} 1D BLEG if : os ; 
001¢803C¢ a F p 1F PUSHL Hi 67836 : : 
OC AE 63 : A 1$ MOVC3 LEN, (R3), KEY_BUFF + 2301 3 
iA D BRB 4 : 294 ; 
68 p F 2$: TSTL TX) : ; 
Oc AE Be 0008S OTRO CRE BUFF : 2306 
rf if 0 BRB ‘e : ; 
OC AE 000E0001 ef 06 5 3$: MOVL #917505, KEY_BUFF : i : 
14 AE 0084 CB 80 7 MOVW 132(CTX), KBF+6 : 3 : 
OC AE 9F 00049 4s: PUSHAB _BUFF + 2334 F 
F365 CF 01 FB 004¢ CALLS #1, TKS_HACK : ; 
24 FF OF 6E i 00 2c 2037 MOVCS5 #0, (SPY, #255, #36, DISP 3 2339 : 
£8 AD 04 00059 CLRL DISP+36 + 2340 : 
01 AB O91 b05¢ CMPB BB(CTX), "1 + 2347 : 
1E 13 000 BEQL $ : 3 
AG AD OOF 906¢ PUSHAB DISP + 2350 ; 
6 oD 9006 PUSHL #6 : : 
: D4 00067 CLRL (SP) : ; 
FF66 OCF 03 FB 60069 CALLS #3, EXPAND ; ; 
01 59 AB O91 O06 CMPB ss BOCCTX), #1 + 2351 ; 
OC 1B 0007 BLEQU : ; 
AG = AD: OOF: «00074 PUSHAB DISP + 2353 : 
01 DD 00077 PUSHL #1 ; : 
01 DD 90079 PUSHL #1 : F 
FFSG OC 03 FB 0007B CALLS #3, EXPAND ; F 
01 58 AB 91 00080 S$: CMPB BB(CTX), #1 > 2363 F 
36 12 00084 BNEQ 4 ; : 
AG OAD 3 0086 PUSHAB ISP : 2366 
7E 0084 CB 3C 0008 MOVZWL 132(CTX), -(SP) : 
6 DD 0008 PUSHL a ; 
FF3F OC FB 000 CAL #3, EXPAND ; 
50 0081 CB 9A 0009 MOVZBL 129(CTX), RO : 2367 
OC 13 OOO9A BEQ 64 ; 
AG = AD. «O9F ~0009C PUSHAB DISP F 
30 DD 0009F PUSHL R ; 
6 DD 000A1 PUSHL @# ; 
FF2C OCF 3 FB O0A3 CALLS #3, EXPAND ; 
20 0080 (B 01 3 OAR 6S: BBC #1. 12B(CTX), 9S : 2368 
AG AD F OOAE PUSHAB DISP ; 
DD 0008 PUSHL @# ; 
DD 0008 PUSHL a ; 
FFIA CF F B CALLS #3, EXPAND F 
12 1 BA BRB 9$ ; 3363 
68 p OBC 7$ TSTL (CTX) : 237 
BNEQ 8$ 3 
04 : C TSTL © 4( CTX) ; 
C BEQL 9$ 3 
001¢806C _8F p C5 8s: PUSHL #1867884 : 2377 
0768 cB BRW 102$ ; 
01 0083 cB 1 CE 9$: CMPB sa 31CCTX), #1 : 2385 
C 1B 0000 BLEQU§ 10$ ; 
AS = AD-SsoO99F:-«0000 PUSHAB DISP : 2387 
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v04= 1278 08-1 3b 00:98:28 YeoRT 2. SRCJSORKEYSUB.B32;1 9° 31) 
1 DD 00008 PUSHL @# ; 
j DD OOODA PUSHL : 
FEF3 cf FB n CALLS @# EXPAND : 
C 58 AB : £1 10$: LBC 91¢CTX), 118 : 394 
AS =6OADOSF:«OO0E PUSHAB DISP + 2396 
4 0D E USHL # : 
4 DD OOOEA USHL #4 : 
FEES CF 3 F EC CALLS #3, EXPAND : 
3 F111$: STL (Cfx) + 2401 
F BEQL 12$ : 
015F F BRW 3 ; : 
56 0084 CB 9E O00F8 12$: MoV 132(CTX), R6 + 2664 
4 C AE 3C 000FD MOVZWL KEY_BUFF, I ; 
0148 31 00101 BRW 36$ : 
53 OE AEG4 7E 00104 13$: MOVAQ KEY BUFF+2C1J, KBF + 2416 
01 0 A3 Bl 3 CMPW ¢{KGF). # 3: 2421 
11 1B 00100 BLEQU 14$ : 
001¢8034 8F DD 0010F PUSHL #1867828 + 2426 : 
000000006 00 o1 FB 00115 CALLS #1, SORSSERROR : ; 
02. =A 1 BA 011 BICB2 #1. 2(KBF) : 2425 : 
30 $3 C 91 14$: MOVZWL (KBF), RO + 2432 : 
2 0 81 001 CMPW RO #35 ; ; 
05 1g 01 6 BLEQU 158 : ; 
33 G ' 01 BLBC $*FUN_K_KANJI, 178 : : 
43° 11 00128 BRB 18$ : ; 
51 06 A3 3C 00120 15$: MOVZWL 6(KBF), R1 + 2434 
51 F246 CF40 08 90 EC 00131 CMPV #0 #8; DSC_LENGTHCROJ, R1 ; 
c 1F 00139 BLssu.-17$ ; 
2F F262. CF g E1 001 BBC RO, DSC_FORCE, 18$ + 2436 
06 A3 BS 00141 TSTW  6(KBF) + 2439 
07 42 0144 BNEQ 16$ ; 
06 A3 F233 CF4 0146 CVTBW DSC_LENGTHCROJ, 6(KBF) + 2641 
50 63 3 0140 16$:  MOVZ2WL (KBF), RO + 2642 
51 06 A3 3C 001 MOVZ2WL 6(KBFS, R1 ; 
51 F223 CF40 08 00 FC 4) 4 CMPV #0 #8; DSC_LENGTHCRO], R1 
001¢8034 ar DD 91 £ 17$:  PUSHL | > 2451 
000000006 00 1 FB 00164 CALLS #1, SORSSERROR : 
63 B4 00168 CLRW 20s (KBF) : 245 
06 =A B4 0160 CLRW  6(KBF) + 245 
55 06 =A E 170 18$:  MOVAB 6(KBF), RS > 2459 
15 63 8B 0174 CMPW 3s (KBF), #21 ; 
0C 12 00177 NEQ 198 : 
6 3¢ 179 MOVZWL (R5), RO ; 
¢ 17¢ DIVL2 #2, RO ; 
01 A ‘ 17F MOV 1(RO), KEYLEN : 
0 1 3 BRB 20$ ; 
C 00185 19$:  mOovZwL (R5), KEYLEN ; 
04 A ¢ 188 20$:  MOVZWL 4(KBF), R + 2464 
3 CO 0018¢ ADDL2. KEYLEN. R : 
50 66 10 c 18F CMPZ7V #0, #16, (R6), RO ; 
4F 1 BGEQ ©. 298 : 
63 : 196 TSTW (xBF) > 2471 
A 1 BEQL 1 ; 
OE i Bt 1% CHP K F), #14 > 2472 
23 Bi 0019F CMPW 30s«(KBF), #35 > 2473 
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90.080 1 ~300 71382 90:48:25 SORT32.SRCJSORKEYSUB.B32; 1 . (315, 
OE 18 OO1A BLEQ 228 : 
66 3C OO1A4 218 BOV ZL R6), KEYLEN + 2476 
06 =A 1A MOV 4(KBF), R : 
: 1AB SUBL2. RO, KEYLEN : 
1A BGEG gif + 2477 
11 0018 BRB 3$ : 
: B4 001B gs: CLRW ss (KF) + 2481 
D4 001B4 23$:  CLRL KEYLEN : 482 
FFFF SF 81 1B6 24$: CMPW (R5), #65535 > 26 
4 1BB BNEQ 253 ; 
2 05 0018D TSTL KEYLEN + 2491 
} 1BF BNE é $ : 
7E C 001C1 25$ MOVZWL (R5), =(SP) + 2497 
01 Ad 9F 00164 PUSHAB 1(1) : 
Q D 1c? PUSHL #2 + 2493 
D5 001¢9 TSTL  KEYLEN + 2494 
12 001¢B BNEQ 26$ ; 
QO1CB0AA BF «DD O01C PUSHL #1867946 + 2495 
6 11 001D RB 27$ : 
001C80AB 8F DD 001D 68: PUSHL #1867947 + 2496 
000000006 00 04 FB 01DB 27$: CALLS #4, SORSSERROR + 2494 
6 : 1E2 28$: OVW  KEYLEN, (RS) : 2501 
50 04 AS 3C OO1ES 29$:  MOVZWL 4(KBF). RO + 2508 
50 52 CO 00169 ADDL2 KEYLEN RO : 
50 02 Ab 10 0 ED O1EC CMP72V #0, #16, 2(R6), RO ; 
12 18 OO1F BGEQ 308 ; 
3 6 81 oorrs CMPW 3 s«(KBF), #14 + 2509 
Op O1F7 BEQL 30S : 
63 B5 001F9 TSTw  (KBF) : 2510 
09 13 OO01FB BEQL 30S ; 
23 63 Bi OOrED CMPW 830s (KBF), #35 + 2511 
4 1A 00200 BGTRU 30$ : 
02 Ab 50 80 00202 MOVW RO, 2(R6) + 2513 
03 58 AB 91 00206 30$:  CMPB BB{cTX), #3 : 2518 
OC 12 0020A BNEQ 1$ : 
AG AD 9F 0020C PUSHAB DISP ; 2520 
52 DD 0020F PUSHL KEYLEN ; 
03 DD 00211 PUSHL # ; 
FDBC CF 03 FB 00 13 CALLS #3, EXPAND ; 
OE 6 B1 0 18 31$: CMPW 30s (KBF), #14 : 2527 
1 1B BNEQ  32$ : 
68 AB D5 00 1p TSTL 104(CTX) : 2528 
02 12 00 BNEG 32$ ; 
63 8B é CLAW = (KBF) : 35 0 
6 B 328: TSTW (KBr) + 2531 
1 $ BNEQ 33 3 
01 5 B CMPW RS), #1 > 2534 
¢ B BNEQ 6$ : 
1 1) BRB 4$ 3 
23 63 81 F 33$:  CMPW (KBF), #35 > 2536 
1B 1A BGTRU 36$ : 
1 F16 20 e ‘ 7 a AO’ péc'G NARY, 36$ Reese 
8 3c0000¢0 BF ? ASHL {KBF), riboees$ose® RO ; 2543 
63 ° 47 34%: MOVW rH (KBF ) 3: 2544 
4A BRB 36§ ; 


Page 97 
40-74 “4 F 
Arbo satisoent gue BS2; 
EoStoct9He OR:GR:5]  YARGTL BL teg=32 44,0 ; 
12780071382 99:93 :2 ; ; 
_—— Ow #6. (KBF) : 
G BO 0024C 358: Sosced igs: 
y_SUB ; F4 a as : 
vee 060" 83 cho} S088E 7s. PUSHAB Hy KEY COMPRESS : | 
F : AL x), ; ] 
oc ag 4 A mOvAB 24 CTX : : 
0 9 F CLRL (ROT R_PC, TMP : : 
lar ff he es SUBL3.  DBCCTX), CUR. 
F 0 5A r 6 suBL3 STACK ; : 
Re bz bosec rSIL §3* ; 
5A 6E D3 2 BEGL 3$ = : : 
56 af i 0278 soe. CLRO KEY BUFF. RB ; 
e SE 0037 meet oe 1], KBF : : 
Pe Mer novaa EY BURFoZE, 
‘ ( ° 2 . 
5 OOCA 31 0281 40S: CMPB Bi : : 
QE AE47 91 00286 BNEQ (KBF), #21 ; : 
okt eh oR ope : : 
5 PS 12 Boeat Mle #2. RS : ; 
06 08 26 90598 Incl’ KE(LE tas 
35 58g 009A ROVZuL #66, RO : ; 
OF HBG ok ay ane : : 
RO Gk an a 
OA DD 00 Ag RUST AtKBF), =(SP) : 
5 OF WL 4(K ° : : 
«Hees Be Peat a : 2 
04 DD 00 Bore eke’ : : 
7E P) 00285 ADDL 4(KBF : : 
05 FB BA MOVW nd. 2(KBF) ; : 
D C10 #e, , OKECNT : : 
F506 CF o 8 80 6 cS tte CeorS was ; 
50 04 Ae O¢ 5 02c : CMW KB ; 
=o 62 O30 PUSHAB DISP (SP) : 
23 1 18 O2CF ova i. EXPAND NTI : ; 
A LS occvTc ; : 
7E e R push eres CONVERT_UDEF : : 
F ne. : P 
wn FF BF OOD DD oor ADDL CROFS. #129026, RO ; é 
i : rf ; 4 448: oak site : : 
roo 6 F PUSHAB ISP. ; ; 
F A} F va ; EXPAND : 
800 F MO a3, 
50 0001F AG OA 3 F CALLS SP CNT) 
E i FD PUSHAB 3 baie 
reo? F BD aseD PUSHL KB 


sonsre-Sue 
v04-000 


F57D 
50 00300018 


50 


FC97 


F756 


FC70 


FBA4 


FC43 


WANNA AIAN AANAANANAAAI 


C9 69 C9 SII IO OO TUT BEANO (OOO 


>>?rwo ~OOO0000 


UWOPNIM FWY FO OF WMDONIN FUNG OOO" UMVIOW 


OOM LOOP $$ SMNOVMOUFS OO FP V10 FOOOWOWO 


wiceco )=«w00 
>PrPr wOwP 


“ 
So 


OOOOOCOOOOCOSOSOOSOSOOSOOOSSOOOSOSOSGOOOSOO OOOO SOSOSOOSOOSOSOOSOOOOOSOOOOOOOOOO 
SoS OSOCOCSOOSOOSOOSOSCSOOSOSOCOSOCOSOSOSOCSOSOSCSOSCSSCSOCOSOOSOOCOCOOCOSOOOCOOCOOOOOCOO 
wo 


SOOQCOCOMMMOOOCOCCNMMMOOD SF MOON OO "WO "OM VOWS "WO "0 > WroOMOO—w 


ODDIOWS $909 OW 9 O-9WWIS NSS OH" 9 “GOO O NOON NO IGN MONI OMNYNOMN ONIN ae 


coc00o 
>>> 


3:70:25 USoatS2e sae Soak vue 


#3, GEN_CONVERT_DEC 
i F), #3145752, RO 


r _ 

5 (SPs. RO, RO 
HCROJ, 

a0, FELT_HARDWARECROJ 
47 

p §p 


#2, GEN_CONVERT_FLT 
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5 “$ 84 1 ZIF NOT HOSTILE XTHEN 

3; 324 5 1 EXTERNAL ROUTINE 

; 3248 § 1 LIB £ UND. IBAGE Ss YmeOt ADDRESSING_MODE (GENERAL) ; 

: 3249 1 BIND DTYPE1 = UPLIT BYTE( ti tttt ); 

3 29 8 1 MACRO ODTYPE_DECL = VECTOR(2 pUATIAL (ZCHARCOUNT('SORSDTYPE'), DTYPE1) %: 
: 1 89 1 MACRO NAMSTR_DECL(X) = VECTORE2] INITIAL (ZCHARCOUNT(X), UPLIFT BYTE(X)) {; 
: 28 M 3290 1 MACRO DTYPE_TX) = 

3 M3291 1 GIN 

3 ee M 3 1 OWN Z: INITIAL(O); 

3 5 M3295 1 BUILTIN AP, CALLG; 

: 28 4 3294 1 IF .Z EQ 

; H 4m 3295 1 THEN 

3 8 M + 1 BEGIN 

3; 3259 4 3297 1 LOCAL DTYPE: DTYPE_DECL, NAMSTR: NAMSTR_DECL(X), STATUS; 

; 3260 M3298 1 STATUS = LIBSFIND IMAGE SYMBOL(DTYPE, NAMSTR, Z5; 

3 $e . + : of NOT .STATUS THEN RETORN SORSSERROR(SORS_SHR_SYSERROR,O,.STATUS); 
: ie M $5) : pera CALLG(.AP, .2); 

3 3265 30 1 GLOBAL ROUTINE SORSSDTYPE_KBF = DTYPE_(*SORSDTYPE_KBF"); 


»PSECT SORSRW_PICDATA,NOEXE, PIC,2 


00000000 00000 2: .LONG 0 F 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 
45 50 59 54 44 24 52 4F 53 01464 P.AAI: .ASCII \SORSDTYPE\ ; 
46 42 4B SF 45 50 59 54 44 246 52 4F 53 O14ED P.AAJ: -ASCII \SORSDTYPE_KBF\ : 
DTYPE1= P.AAI 
.EXTRN LIBSFIND_IMAGE_SYMBOL 
0004 00000 .ENTRY SORSSDTYPE_KBF, Save R2 : 3303 
52 00000000" EF 9 9002 MOV 7, R : 
SE 10 C2 0000 SUBL2 #16, SP ; 
$¢ D5 0000C 1LCté«‘K : 
12 000g BNEQ =«'1$ F 
08 AE 09 D0 0001 MOVL #9, DTYPE : 
OC AE D3. OA i 0014 MOVAB DTYPE1, DTYPE+4 : 
6E 0d p00 00019 MOVL #13, NAMSTR F 
04 AE D4 «AF OSE 6 1C OVAB P.AAJ, NAMSTR+4 ; 
52 DD 1 PUSHL R2 F 
04 AE 9F 00023 PUSHAB NAMSTR : 
10 AE F PUSHAB DTYPE ; 
000000006 00 FB CALLS #3, LIBSFIND_IMAGE_SYMBOL ; 
12 0 £8 00 LBS STATUS, 1$ ; 
0 DD 000 PUSHL STATUS : 
E D4 0 CLRL rita) : 
001¢11B4 i DD PUSHL #1839540 ; 
000000006 00 3 FB 005 CALLS #3, SORSSERROR ; 
00 B2 6C FA 0943 1$: CALLG (AP), a2 ; 
04 0004 RET ; 


Routine Base: 


; Routine Size: 


; Routine Size: Routine Base: 


00000000 00004 2: 


45 50 59 54 44 24 52 4F 


52 00000000° 
5E 


AE 
AE FF7B 
6E 
AE D3 
04 
10 
00 
12 
001C11B4 
00 
B2 


SORSRO_CODE + 14FA 


53 01544 P.AAK: 
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PRS 
ro 


SORSRO_CODE + 1551 


1 GLOBAL ROUTINE SORSSDTYPE_T_W = DTYPE_('SORSDTYPE_T_w'); 


-PSECT 
- LONG 
»PSECT 
ASCII 


gE 09:29:6) M1 oLisg=s2. 4.0274 


SORT32.SRCJSORKEYSUB.B52;1 


SORSRW_PICDATA,NOEXE, PIC,2 

0 

SORSRO_CODE,NOWRT, SHR, PIC,2 
\SORSDTYPE_T_W\ 


SORSSDTYPE_T_W, Save R2 
#i6, SP 


DTYPE 
#3, LIBSFIND_IMAGE_SYMBOL 
STATUS, 1$ 

STATUS 

#1839540 

#3, SORSSERROR 

(AP), az 
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4 ROUTINE CLEAN_UP: CAL_CTXREG NOVALUE = 
i++ 
FUNCTIONAL DESCRIPTION: 

Release resources allocated by this module. 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE (signals errors) 
SIDE EFFECTS: 

NONE 
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LIT IFIP II III at st a st st et tt tt at kt kk kk kk kt tt 


BEGIN 
; EXTERNAL REGISTER 
: $30 3 CTX =  COM_REG_CTX: REF CTX_BLOCK; 
5 0 Z Deallocate the code we generated 
; 04 ‘ SORSSDEALLOCATE (. VECTORCCTXCCOM_ROUTINES],0J, VECTORCCTXCCOM_ROUTINES),1)); 
; 3306 30 END; 
0000 00000 CLEAN_UP: 
“= ,WORD Save nothing 3 330% 
1¢ AB OF £008 PUSHAB 28(CTX) 3 1 
50 5B DO 0000 MOVL 3 
18 AO 0D 9008 PUSHL  24(RO) ; 
000000006 00 02 FB 8 CALLS #2, SORSSDEALLOCATE ; 
04 0001 RET ; 3343 


; Routine Size: 19 bytes, Routine Base: SORSRO_CODE + 159C 


; 3307 44 1 
HE Joe 
; 3309 46 0 ELUDOM 
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PSECT SUMMARY 3 | 
; Name Bytes Attributes : 
: SORSRO_CODE________ Oe 4 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; SORSRO-CODE~~ 5551 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; SORSRW_ BOOB ATA 8 NOVEC, WRT, RD -NOEXE,NOSHR, LCL, REL. CON, PIC.ALIGN(2) ; 
; Library Statistics : 
; ogame: | Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time ‘ 
; “$3: SYSLIBILIB.L32;1 18619 53 0 1000 00:01.8 : 
; Tgebd$puacs: [SORT SZ. SRCIOPCODES -4 3251 343 77 22 18 00:00.6 : 
; 7$255$pUA28:CSORT32. SRCISORLIB.L32; 1 409 163 9 34 00:00.6 : 
; COMMAND QUALIFIERS ; 
; FFSSPEME CROCE FELD INET IAL OPTIMIZE) /MOTRACE/| SP re TES 1SERRE TRUS /OB ICR IS : SOMKEVOS MSRC$: SORKE YSUB/UPDATE=(ENH$: SORKEYSUB : 
3 Size: 5396 $code, + 167 data bytes ; 
3; Run Time: ; 
; Elapsed. staes 06: } 8 : 
3 Lines/CPU ; 
3 Lerenes/CPU-Rin: 52 ; ; 
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